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method uses a wavelet decompo&itin. 
frequency based tree nrrriing. tree based 
motion encoding, frequency weighted 
quantization. Huffman encoding, and/or 
tree based activity estimation for bit rate 
cootrol. Forward and inverse quasi-perfect 
reconstruction transforms are used to 
generate the wavelet decomposition 
and to reconstruct data values close to 
the original data values. The forward 
and inverse quasi-perfect reconstruction 
transforms utilize special fitters at (he 
boundaries of the data being trauformed 
and/or inverse transformed. Structures and 
methods are disclosed for traversing wavelet 
(kcompositioos. Methods are disclosed for 



increasing software execution speed in the 
decompression of video. Fixed or variable 
length tokens are included in a compressed 
data stream to indicate changes in encoding 
methods used to generate the compressed 
data stream. 
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DATA COMPRESSION AND DECOMPRESSION 



CROSS REFERENCE TO APPENDICE S 

5 Appendix A, which is a part of the present 

disclosure, is a listing of a software implementation 
written in the programming language C. 

Appendices B-l and B-2, which are part of the present 
disclosure, together are a description of a hardware 

10 implementation in the commonly used hardware description 
language ELLA. 

Appendix C, which is part of the present disclosure 
is a listing of a software implementation written in the 
programming language C and assembly code. 

15 A portion of the disclosure of this patent document 

contains material which is subject to copyright 
protection. The copyright owner has no objection to the 
facsimile reproduction by anyone of the patent document, 
but otherwise reserves all copyright rights whatsoever. 

20 FTFTjP OF THE TNVFNTTOM 

This invention relates to a method of and apparatus 
for data compression and decompression. In particular, 
this invention relates the compression, decompression, 
transmission and storage of audio, still-image and video 

2 5 data in digital form. 

BACKGROUND INFORMATION 

An image such as an image displayed on a computer 
monitor may be represented as a two-dimensional matrix of 
digital data values. A single frame on a VGA computer 

3 0 monitor may, for example, be represented as three matrixes 

of pixel values. Each of the three matrixes has a data 
value which corresponds to a pixel on the monitor. 

The images on the monitor can be represented by a 640 
by 480 matrix of data values representing the luminance 
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(brightness) values Y of the pixels of the screen and two 
other 64 0 by 480 matrixes of data values representing the 
chrominance (color) values U and V of the pixels on the 
screen. Although the luminance and chrominance values are 
5 analog values, the one luminance value and the two 
chrominance values for a pixel may be digitized from 
analog form into discrete digital values. Each luminance 
and chrominance digital value may be represented by an 8- 
bit number. One frame of a computer monitor therefore 

10 typically requires about 7 megabits of memory to store in 
an uncompressed form. 

In view of the large amount of memory required to 
store or transmit a single image in uncompressed digital 
form, it would be desirable to compress the digital image 

15 data before storage or transmission in such a way that the 
compressed digital data could later be decompressed to 
recover the original image data for viewing. In this way, 
a smaller amount of compressed digital data could be 
stored or transmitted. Accordingly, numerous digital 

20 image compression and decompression methods have been 
developed. 

According to one method, each individual digital 
value is converted into a corresponding digital code. 
Some of the codes have a small number of bits whereas 

25 others of the codes have a larger number of bits. In order 
to take advantage of the fact that some of the codes are 
short whereas others of the codes are longer, the original 
digital data values of the original image are filtered 
using digital filters into a high frequency component and 

30 a low frequency component. The high frequency component 
represents ambiguities in the image and is therefore 
observed to have a comparatively large number of identical 
data values for real-world images. By encoding the 
commonly occurring digital data values in the high 

35 frequency component with the short digital codes, the 

total number of bits required to store the image data can 
be reduced from the number of bits that would otherwise be 
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required if 8-bits were used to represent all of the data 
values. Eecause the total number of bits in the resulting 
encoded data is less than the total number of bits in the 
original sequence of data values, the original image is 
5 said to have been compressed. 

To decompress the compressed encoded data to recover 
the original image data, the compressed encoded data is 
decoded using the same digital code. The resulting high 
and low frequency components are then recombined to form 
10 the two-dimensional matrix of original image data values. 
Where the data being compressed is two-dimensional 
data such as image data, separation of the original data 
into high and low frequency components by the digital 
filters may be accomplished by filtering in two dimensions 
15 such as the horizontal dimension of the image and tha 
vertical dimension of the image. Similarly, decoded high 
and low frequency components can be recombined into the 
original image data values by recombining in two 
dimensions . 

20 To achieve even greater compression, the low 

frequency component may itself be filtered into its high 
and low frequency components before encoding. Similarly, 
the low frequency component of the low frequency, component 
may also be refiltered. This process of recursive 

25 filtering may be repeated a number of times. Whether or 
not recursive filtering is performed, the filtered image 
data is said to have been "transformed" into the high and 
low frequency components. This digital filtering is 
called a ••transform". Similarly, the high and low pass 

30 components are said to be "inverse transformed" back into 
the original data values. This process is known as the 
"inverse transform". 

Figure 1 is a diagram of a digital gray-scale image 
of a solid black square 1 on a white background 2 

35 represented by a 640 by 480 matrix of 8-bit data luminance 
values. 

Figure 2 is a diagram illustrating a first 
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intermediate step in the generation of the high and low 
frequency components of the original image. A high pass 
digital filter which outputs a single data value using 
multiple data values as inputs is first run across the 
5 original image values from left to right, row by row, to 
generate G subblock 3. The number of digital values in G 
subblock 3 is half of the number of data values in the 
original image of Figure 1 because the digital filter is 
sequentially moved to the right by twos to process two 
10 additional data values for each additional one data output 
generated for G subblock 3. Similar ly, a low pass digital 
filter which outputs a single data value using multiple 
data values as inputs is first run across the original 
image values from left to right, row by row, to generate H 
15 subblock 4. The number of digital values in H subblock 4 
is half of the number of data values in the original image 
because the digital filter is moved to the right by twos 
to process two additional data values for each additional 
one data output generated for H subblock 4. Each of the 
20 two vertical bars in high pass G subblock 3 appears where 
a change occurs spatially in the horizontal dimension in 
the original image of Figure 1. Where the G filter 
encounters a change from white data values to black data 
values when the filter G is run across the image of Figure 
25 l in a horizontal direction, the G digital filter outputs 
a corresponding black data value into subblock 3. 
Similarly, when the G digital filter encounters the next 
change, which is this time a change from black to white 
data values, the G digital filter again outputs a 
3 0 corresponding black data value into G subblock 3. 

Figure 3 is a diagram illustrating a second 
intermediate step in the generation of the high and low 
frequency components of the original image. The high pass 
digital filter is run down the various columns of the 
35 subblocks H and G of Figure 2 to form the HG subblock 5 
and GG subblock 6 shown in Figure 3. Similarly, the low 
pass digital filter is run down the various columns of the 
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H arid G subblocks 3 and 4 of Figure 2 to form HH and GH 
subblocks 7 and 8 shown in Figure 3* The result is the 
low pass component in subblock HH and the three high pass 
component subblocks GH,„ HG and GG. The total number of 
5 high and low pass component data values in Figure 3 is 
equal to the number of data values in the original image 
of Figure 1. The data values in the high pass component 
subblocks GH, HG and GG are referred to as the high 
frequency component data values of octave 0. 

10 The low pass subblock HH is then filtered 

horizontally and vertically in the same way into its low 
and high frequency components. Figure 4 illustrates the 
resulting subblocks. The data values in HHHG subblock 9, 
HHGH subblock 10, and HHGG subblock 11 are referred to as 

15 the high frequency component data vales of octave 1. 
Subblock HHHH is the low frequency component. Although 
not illustrated, the low frequency HHHH subblock 12 can be 
refiltered using the same method. As can be seen from 
Figure 4, the high frequency components of octaves 0 and 1 

2 0 are predominantly white because black in these subblocks 

denotes changes from white to black or black to white in 
the data blocks from which to high frequency subblocks are 
generated. The changes, which are sometimes called edges, 
from white to black as well as black to white in Figure 1 
25 result in high frequency data values in the HG, HG and GG 
quadrants as illustrated in Figure 3. 

Once the image data has been filtered the desired 
number of times using the above method, the resulting 
transformed data values are encoded using a digital code 

3 0 such as the Huffman code in Table 1. 
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Corresponding Digital 
Gray-Scale Value 



Digital 
Code 



15 



10 



black 
white 



5 
4 
3 
2 
1 
0 

-1 
-2 
-3 
-4 
-5 



1000001 

100001 

10001 

1001 

101 

0 

111 

1101 
11001 
110001 
1100001 



20 



Table 1 



Because the high frequency components of the original 
image of Figure 1 are predominantly white as is evident 
from Figures 3 and 4, the gray-scale white is assigned the 
single bit 0 in the above digital code. The next most 

25 common gray-scale color in the transformed image is black. 
Accordingly, gray-scale black is assigned the next 
shortest code of 101. The image of Figure 1 is comprised 
only of black and white pixels. If the image were to 
involve other gray-scale shades, then other codes would be 

3 0 used to encode those gray-scale colors, the more 
predominant gray-scale shades being assigned the 
relatively shorter codes. The result of the Huffman 
encoding is that the digital values which predominate in 
the high frequency components are coded into codes having 

35 a few number of bits. Accordingly, the number of bits 
required to represent the original image data is reduced. 
The image is therefore said to have been compressed. 

Problems occur during compression, however, when the 
digital filters operate at the boundaries of the data 

40 values. For example, when the high pass digital filter 
generating the high pass component begins generating high 
pass data values of octave 0 at the left hand side of the 
original image data, some of the filter inputs required by 
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the filter do not exist. 

Figure 5 illustrates the four data values required by 
a four coefficient high pass digital filter G in order to 
generate the first high pass data value G 0 of octave 0. As 
5 shown in Figure 5, data values D,, D 2 , D 3 and D 4 are 

required to generate the second high pass data value of 
octave 0, data value G, • In order to generate the first 
high pass component output data value G 0 , on the other 
hand, data values D.,, D 0 , D w and D 2 are required. Data 
10 value D. t does not, however, exist in the original image 
data. 

Several techniques have been developed in an attempt 
to solve the problem of the digital filter extending 
beyond the boundaries of the image data being transformed. 

15 In one technique, called zero padding, the nonexistent 
data values outside the image are simply assumed to be 
zeros. This may result in discontinuities at the 
boundary, however, where an object in the image would 
otherwise have extended beyond the image boundary but 

2 0 where the assumed zeros cause an abrupt truncation of the 
object at the boundary. In another technique, called 
circular convolution, the two dimensional multi-octave 
transform can be expressed in terms of one dimensional 
finite convolutions. Circular convolution joins the ends 

25 of the data together. This introduces a false 

discontinuity at the join but the problem of data values 
extending beyond the image boundaries no longer exists. 
In another technique, called symmetric circular 
convolution, the image data at each data boundary is 

30 mirrored. A signal such as a ramp, for example, will 
become a peak when it is mirrored. In another technique, 
called doubly symmetric circular convolution, the data is 
not only mirrored spatially but the values are also 
mirrored about the boundary value. This method attempts 

35 to maintain continuity of both the signal and its first 
derivative but requires more computation for the extra 
mirror because the mirrored values must be pre-calculated 
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before convolution. 

Figure 6 illustrates yet another technique which has 
been developed to solve the boundary problem. According 
to chis technique, the high and low pass digital filters 
5 are moved through the data values in a snake-like pattern 
in order to eliminate image boundaries in the image data. 
After the initial one dimensional convolution, the image 
contains alternating columns of low and high pass 
information. By snaking through the low pass sub-band 

10 before the high pass, only two discontinuities are 

introduced. This snaking technique, however, requires 
reversing the digital filter coefficients on alternate 
rows as the filter moves through the image data. This 
changing of filter coefficients as well as the requirement 

15 to change the direction of movement of the digital filters 
through various blocks of data values makes the snaking 
technique difficult to implement. Accordingly, an easily 
implemented method for solving the boundary problem is 
sought which can be used in data compression and 

20 decompression. 

Not only does the transformation result in problems 
at the boundaries of the image data, but the transforma- 
tion itself typically requires a large number of complex 
computations and/or data rearrangements. The time 

2 5 required to compress and decompress an image of data 

values can therefore be significant. Moreover, the cost 
of associated hardware required to perform the involved 
computations of the forward transform and the inverse 
transform may be so high that the transform method cannot 

3 0 be used in cost-sensitive applications. A compression and 

decompression method is therefore sought that not only 
successfully handles the boundary problems associated with 
the forward transform and inverse transform but also is 
efficiently and inexpensively implementable in hardware 
3 5 and/or software. The computational complexity of the 
method should therefore be low. 

In addition to transformation and encoding, even 
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further compression is possible, a method Jcnown as tree 
encoding may, for example, be employed. Moreover, a 
method called quantization can be employed to further 
compress the data. Tree encoding and quantization are 
5 described in various texts and articles including "Image 
Compression using the 2-D Wavelet Transform" by A.S. Levis 
and G. Knowles, published in IZEE Transactions on Image 
Processing, April 1992. Furthermore, video data which 
comprises sequences of images can be compressed by taking 
10 advantage of the similarities between successive images. 
Where a portion of successive images does not change from 
one image to the next, the portion of the first image can 
be used for the next image, thereby reducing the number of 
bits necessary to represent the sequence of images. 
15 JPEG (Joint Photographies Experts Group) is- an 

international standard for still-images which typically 
achieves about a 10:1 compression ratios for monochrome 
images and 15:1 compression ratios for color images. The 
JPEG standard employs a combination of a type of Fourier 
20 transform, known as the discrete-cosine transform, in 
combination with quantization and a Huf fman-like code. 
MPEG1 (Motion Picture Experts Group) and MPEG2 are two 
international video compression standards* MPEG2 is a 
standard which is still evolving which is targeted for 
25 broadcast television. MPEG2 allows the picture quality to 
be adjusted to allow more television information to be 
transmitted, e.g., on a given coaxial cable. H.261 is 
another video standard based on the discrete-cosine 
transform. H.261 also varies the amount of compression 
3 0 depending on the data rate required. 

Compression standards such as JPEG, MPEG1, MPEG2 and 
H.261 are optimized to minimize the signal to noise ratio 
of the error between the original and the reconstructed 
image. Due to this optimization, these methods are very 
3 5 complex. Chips implementing MPEG1 , for example, may be 
costly and require as many as 1.5 million transistors. 
These methods only partially take advantage of the fact 
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that the human visual system is quite insensitive to 
signal to noise ratio. Accordingly, some of the 
complexity inherent in these standards is wasted on the 
human eye. Moreover, because these standards encode by 
5 areas of the image, they are not particularly sensitive to 
edge-type information which is of high importance to the 
human visual system. In view of these maladaptions of 
current compression standards to the characteristics of 
the human visual system, a new compression and 

10 decompression method is sought which handles the above- 
described boundary problem and which takes advantage of 
the fact that the human visual system is more sensitive to 
edge information than signal to noise ratio so that the 
complexity and cost of implementing the method can be 

15 reduced. 

SUMMARY 

A compression and decompression method using wavelet 
decomposition, frequency based tree encoding, tree based 
motion encoding, frequency weighted quantization, Huffman 

20 encoding, and tree based activity estimation for bit rate 
control is disclosed. Forward and inverse quasi-perfect 
reconstruction transforms are used to generate the wavelet 
decomposition and to reconstruct data values close to the 
original data values. The forward and inverse quasi- 

25 perfect reconstruction transforms utilize special filters 
at the boundaries of the data being transformed and/or 
inverse transformed to solve the above-mentioned boundary 
problem. 

In accordance with some embodiments of the present 
30 invention, a decompression method uses four coefficient 
inverse perfect reconstruction digital filters. The 
coefficients of these inverse perfect reconstruction 
digital filters require a small number of additions to 
implement thereby enabling rapid decompression in software 
35 executing on a general purpose digital computer having a 
microprocessor. The method partially inverse transforms a 
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sub-band decomposition to generate a small lev frequency 
component image. This small image is expanded in one 
dimension by performing interpolation on the rows of the 
small image and is expanded in a second dimension by 
5 replicating rows of the interpolated small image. 
Transformed chrominance data values are inverse 
transformed using inverse perfect reconstruction digital 
filters having a fewer number of coefficients than the 
inverse perfect reconstruction digital filters used to 

10 inverse transform the corresponding transformed luminance 
data values. In one embodiment, two coefficient Haar 
digital filters are used as the inverse perfect 
reconstruction digital filters which inverse transform 
transformed chrominance data values. Variable-length 

15 tokens are used in the compressed data stream to indicate 
changes in encoding methods used to encode data values in 
the compressed data stream. 

RRTFF DESCRIPTION OF THE DRAWINGS 

Figures 1-4 {Prior Art) are diagrams illustrating a 
20 sub-band decomposition of an image. 

Figure 5 (Prior Art) is a diagram illustrating a 
boundary problem associated with the generation of prior 
art sub-band decompositions. 

Figure 6 (Prior Art) is a diagram illustrating a 
25 solution to the boundary problem associated with the 
generation of prior art sub-band decompositions. 

Figure 7 is a diagram illustrating a one-dimensional 
decomposition. 

Figures 8 and 9 are diagrams illustrating the 
30 separation of an input signal into a high pass component 
and a low pass component. 

Figures 10 , 11 , 14 and 15 are diagrams illustrating a 
transformation in accordance with one embodiment of the 
present invention. 
35 Figures 12 and 13 are diagrams illustrating the 

operation of high pass and low pass forward transform 
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digital filters in accordance with cne embodiment of the 
present invention. 

Figure 16 is a diagram of a two-dimensional matrix of 
original data values in accordance with one embodiment of 
5 the present invention. 

Figure 17 is a diagram of the two-dimensional matrix 
of Figure 16 after one octave of forward transform in 
accordance with one embodiment of the present invention. 

Figure 18 is a diagram of the two-dimensional matrix 
10 of Figure 16 after two octaves of forward transform in 
accordance with one embodiment of the present invention. 

Figures 19 and 2 0 are diagrams illustrating a 
boundary problem solved in accordance with one embodiment 
of the present invention. 
15 Figure 21 is a diagram illustrating the operation of 

boundary forward transform digital filters in accordance 
with one embodiment of the present invention. 

Figure 22 is a diagram illustrating the operation of 
start and end inverse transform digital filters in 
20 accordance with one embodiment of the present invention. 

Figure 23 is a diagram illustrating a one-dimensional 
tree structure in accordance one embodiment of the present 
invention. 

Figure 24A-D are diagrams illustrating the recursive 
25 filtering of data values to generate a one-dimensional 
decomposition corresponding with the one-dimensional tree 
structure of Figure 23. 

Figure 25 is a diagram of a two-dimensional tree 
structure of two-by-two blocks of data values in 
3 0 accordance with one embodiment of the present invention. 

Figure 26 is a pictorial representation of the data 
values of the two-dimension tree structure of Figure 25. 

Figures 27-29 are diagrams illustrating a method and 
apparatus for determining the addresses of data values of 
35 a tree structure in accordance with one embodiment of the 
present invention . 

Figure 30 and 31 are diagrams illustrating a 



WO 94/23385 



PCT/GB94/00677 



- 13 - 

quantization of transf ormed data values in accordance with 
one embodiment of the present invention. 

Figures 32 and 33 are diagrams illustrating the 
sensitivity of the human eye to spatial frequency. 
5 Figures 34 is a diagram illustrating the distribution 

of high pass component data values in a four octave 
wavelet decomposition of the test image Lenna. 

Figure 35 is a diagram illustrating the distribution 
of data values of the test image Lenna before wavelet 
10 transformation. 

Figure 3 6 is a block diagram illustrating a video 
encoder and a video decoder in accordance with one 
embodiment of the present invention. 

Figure 37 is a diagram illustrating modes of the 
15 video encoder and video decoder of Figure 36 and the 
corresponding token values. 

Figure 38 is a diagram illustrating how various flags 
combine to generate a new mode when the inherited mode is 
send in accordance with one embodiment of the present 
20 invention. 

Figures 3 9-40 are diagrams of a black box on a white 
background illustrating motion. 

Figures 41-43 are one-dimensional tree structures 
corresponding to the motion of an edge illustrated in 
25 Figures 39-40. 

Figure 44 is a diagram illustrating variable-length 
tokens in accordance with one embodiment of the present 
invention. 

DETAILED DESCRIPTION OF TH E PREFERRED EMBODIMENT? 

30 QUASI -PERFECT RECONSTRUCTION FILTERS 

The wavelet transform was introduced by Jean Morlet 
in 1984 to overcome problems encountered in analyzing 
geological signals. See "Cycle-octave and Related 
Transforms In Seismic Signal Analysis", Goupillaud, 

35 Grossman and Morlet, Geoexploration, vol. 23 , 1984. Since 
then, the wavelet transform has been a new and exciting 
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method of analyzing signals and has already been applied 
to a vide range of tasks such as quantum mechanics and 
signal processing: The wavelet transform has a number of 
advantages over more traditional Fourier techniques 
5 principally used today in the analysis of signals. The 
wavelet transform and the high and low pass four 
coefficient quasi-perfect reconstruction filters of the 
present invention are therefore described by relating them 
to the windowed Fourier transform. 

10 The windowed Fourier transform is the principle 

transform used today to analyze the spectral components of 
a signal. The Fourier transform decomposes a signal under 
analysis into a set of complex sinusoidal basis functions. 
The resulting Fourier series can be interpreted as the 

15 frequency spectra of the signal. The continuous Fourier 
transform is defined as follows: 



Where f (t) is the time domain signal under analysis and 
F(u) is the Fourier transform of the signal under 

2 0 analysis. Although many applications require an estimate 
of the spectral content of an input signal, the above 
formula is impractical for most systems. In order to cal- 
culate the Fourier transform, the input signal f (t) must 
be defined for all values of time t, whereas in most 

25 practical systems, f(t) is only defined over a finite 
range of time. 

Several methods have therefore been devised to 
transform the finite input signal into an infinite signal 
so that the Fourier transform can be applied. The 

30 windowed Fourier transform is one such solution. The 
windowed Fourier transform is defined as follows: 




(egu. 1) 



(egu. 2) 



where f (t) is the time domain signal under analysis, 
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F w (cj,t) is the windowed Fourier transform of the time 
domain signal under analysis, and w(t) is the windowing 
function. The windowing function is usually chosen to be 
zero outside an interval of finite length. Alternatively, 
5 as the spectral content of the input f(t) varies with 
time, the input signal can be examined by performing the 
transform at time r using a more local window function. 
In either case, the output transform is the convolution of 
the window function and the signal under analysis so that 

10 the spectra of the window itself is present in the 

transform results. Consequently, the windowing function 
is chosen to minimize this effect. Looking at this 
technique from another viewpoint, the basis functions of a 
windowed Fourier transform are not complex sinusoids but 

IS rather are windowed complex sinusoids. Dennis Gabor used 
a real Gaussian function in conjunction with sinusoids of 
varying frequencies to produce a complete set of basis 
functions (known as Gabor functions) with which to analyze 
a signal. For a locality given by the effective width of 

2 0 the Gaussian function, the sinusoidal frequency is varied 
such that the entire spectrum is covered. 

The wavelet transform decomposes a signal into a set 
of basis functions that can be nearly local in both 
frequency and time. This is achieved by translating and 

25 dilating a function ¥(t) that has spatial and spectral 
locality to form a set of basis functions: 



wherein s and u are real numbers and are the variables of 
the transform. The function ¥<t) is called the wavelet. 

The continuous wavelet transform of a signal under 
analysis is defined as follows: 



(equ. 3) 



(equ. 4) 



Where f (t) is the time domain signal under analysis, 
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W(s,u) is its wavelet transform, * is the wavelet, s is 
the positive dilation factor and u is the scaled 
translation distance. The spatial and spectral locality 
of the wavelet transform is dependent on the character- 
5 istics of the wavelet. 

Because the signal under analysis in the compression 
of digitally sampled images has finite length, the 
discrete counterpart of the continuous wavelet transform 
is used. The wavelet transform performs a multiresolution 

10 decomposition based on a sequence of resolutions often 
referred to as "octaves". The frequencies of consecutive 
octaves vary uniformly on a logarithmic frequency scale. 
This logarithmic scale can be selected so that consecutive 
octaves differ by a factor of two in frequency. The basis 

15 functions are: 

{^(x-2"->n)} fox (j,n)€Z 2 (egu. 5) 

where Z is the set of all integers, Z 2 « {(j/n) : j,n € Z} , 

and il^'U) = V^ 7 * <2* x) . 

In a sampled system, a resolution r signifies that 

2 0 the signal under analysis has been sampled at r samples 
per unit length. A multiresolution analysis studies an 
input signal at a number of resolutions, which in the case 
of the present invention is the sequence r = 2 J where 
j c Z. The difference in frequency between consecutive 

25 octaves therefore varies by a factor of two. 

Stephane Mallat formalized the relationship between 
wavelet transforms and multiresolution analysis by first 
defining a multiresolution space sequence {V j } j€Z , where V } 
is the set of all possible approximated signals at 

30 resolution 2 j . He then showed that an orthonormal basis 
for Vj can be constructed by (x-2" j n) }, €2 . *(x) is called 
the scaling function where for any jcZ, <^ (x) «*/2?<t> <2'x) . 
He then showed that a signal f (x) can be approximated at a 
resolution 2 j by the set of samples: 
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Sj = {^<f^i» ntz (equ. 6) 

where <f.g>=j m J(x)g(x)dx. wheie f. gzL 2 (R) , 
the set of. square integrable functions on R. This is 
equivalent to convolving the signal f(x) with the scaling 
5 function ^(-x) at a sampling rate of 2 j . However, this 
representation is highly redundant because Vj C Vj^jez, 
It would be more efficient to generate a sequence of 
multiresolution detail signals Oj which represents the 
difference information between successive resolutions 
10 O/Bv, = Vj+, where Oj is orthogonal to Vj. Mallat proved that 
there exists a function *(x) called the wavelet where: 

« JV1H2*x) (equ. 7) 

such that {♦'(x-2* i n) is an orthonormal basis of Oj and 
{*(x-2^n)}, (j,n)eZ 2 , is an orthonormal basis of L 2 (R) . 
15 The detail signal at resolution 2 J * ! is represented by the 
set of data values: 

J^-W53<f, (equ. 8) 

which is equivalent to convolving the signal f (x) with the 
wavelet ¥(-x) at a sampling rate of 2 j . 

20 Hence, the original signal f(x) can be completely 

represented by the sets of data values (S Jf (Nj) J< j<-l) , 
where J<0 gives the number of octaves. This 
representation in the form of data values is known as the 
discrete wavelet decomposition. The S 3 notation used by 

25 Mallat refers to recursively low pass filter values of the 
original signal. S e corresponds to the original data 
values D. S., corresponds to the H data values from the 
low pass filter. N., corresponds to the G data values from 
the high pass filter. S. 2 corresponds to the next low pass 

30 filtered values from the previous H sub-band, N. 2 

corresponds to the next high pass filtered values from the 
previous H sub-band. 

If the sampling patterns of the discrete windowed 
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Fcurier transform and the discrete wavelet transform are 
compared while maintaining the spatial locality of the 
highest frequency sample for both transforms, then the 
efficiency of the discrete wavelet decomposition is 
5 revealed. The window Fourier transform produces a linear 
sampling grid, each data value being a constant spatial 
distance or a constant frequency away from its neighbor. 
The result is a heavy over-sampling of the lower 
frequencies. The wavelet transform, in contrast, samples 

10 each of its octave wide frequency bands at the minimum 

rate such that no redundant information is introduced into 
the discrete wavelet decomposition. The wavelet transform 
is able to achieve highly local spatial sampling at high 
frequencies by the use of octave wide frequency bands. At 

15 low frequencies, spectral locality takes precedence over 
spatial locality. 

Figure 7 illustrates the spatial and spectral 
locality of a sequence of sampled data values. The box 
surrounding a data value represents the spatial and 

20 spectral locality of the data value. The regions of 
Figure 7 are presented for explanation purposes. In 
reality there is some overlap and aliasing between 
adjacent data values, the characteristics of which are 
determined by the particular wavelet function used. 

25 Mallat showed the wavelet transform can be computed 

with a pyramid technique, where only two filters are used. 
Using this technique, Sj and Nj are calculated from S j4 ,„ S 5 
being used as the input for the next octave of 
decomposition. A low pass filter H: 

30 h(n) - -±-<4>;\4>l> (equ. 9) 

Mallat showed that S t can be calculated by convolving from 
S^i with H and keeping every other output (i.e. sub- 
sampling by a factor of 2) . 

A method for calculating Nj from S^, can also be 
35 derived. This method involves convolving S j<M with a high 
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pass filter G and sub-sampling by a factor of 2. The high 
pass filter G is defined by the following coefficients: 

g(n) h(l-n) (equ. 10) 

The relationship between the H and G filters results 
5 in a large saving when the filters are implemented in 
hardware. 

Figures 8 and 9 illustrate that these two filters H 
and G form a complementary pair that split an input signal 
into two half band output signals. Both the high and the 

10 low pass outputs can be sub-sampled by a factor of two 
without corrupting the high frequency information because 
any aliasing introduced by the sub-sampling will be 
corrected in the reconstruction. There are the sane 
number of filtered data values as there are original image 

IS data values. 

The particular wavelet which is best in analyzing a 
signal under analysis is heavily dependent on the 
characteristics of the signal under analysis. The closer 
the wavelet resembles the features of the signal, the more 

20 efficient the wavelet representation of the signal will 
be. In addition, reconstruction errors introduced by 
quantization resemble the wavelet. Typically, the amount 
of aliasing varies with spatial support (the number of 
coefficients of the wavelet filters). Long wavelets can 

25 be constructed such that aliasing between adjacent octave 
bands is minimized. However, the spatial equivalent of 
aliasing, overlap, increases with filter length. 
Conversely, short wavelets have little or no overlap 
spatially but exhibit large amounts of aliasing in the 

3 0 frequency domain. To properly determine the suitability 
of a wavelet for a particular application, these factors 
of size and shape must be considered. 

To apply the wavelet transform to image processing, 
the present invention employs a particular wavelet called 

3 5 the four coefficient Daubechies wavelet. Because the four 
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coefficient Daubechies wavelet has only four coefficients, 
it is very short- This is well-suited for analyzing 
important image features such as object edges. Edges by 
definition are spatially local discontinuities. Edges 
5 often consist of a wide spectral range which, when 
filtered through a high pass filter, give rise to 
relatively larger filtered outputs only when the analysis 
filter coincides with the edge. When the analysis filter 
does not coincide with the edge, relatively smaller 
10 filtered outputs are output by the filter. The shorter 
the analysis filter used, the more finely the spatial 
position of the edge is resolved. Longer filters produce 
more of the relatively larger data values to represent an 
edge. The shortness of the filter also makes the 
15 transform calculation relatively inexpensive to implement 
compared with that of longer filters or image 
transformations such as the Fourier or discrete cosine 
transforms. The four coefficient Daubechies wavelet was 
selected for use only after a careful analysis of both its 
2 0 spatial and aliasing characteristics. Longer wavelets 
such as the six coefficient Daubechies wavelet could, 
however, also be used if a more complex implementation 
were acceptable. Short filters such as the two 
coefficients Haar wavelet could also be used if the 
25 attendant high levels of noise were acceptable. 

The true coefficients of the four coefficient 
Daubechies wavelet are: 

The low pass four coefficient Daubechies digital 
30 filter is given by: 

H (*f) = aD < x " 1 ? * bD ( x > + CD(X+1) - dD(X+2) (equ. 12) 

The high pass four coefficient Daubechies digital 
filter is given by: 
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G (f) = dD ^ x ' 1 ^ + c D(x) - bD(x+l) + aD(x+2) (equ. 13) 

In equations 12 and 13, D(x-l), Dfx), D(x+1) and D(x+2) 
are four consecutive data values. h|-^| and g|-^| are true 
perfect reconstruction filters, i.e. the inverse transform 
5 perfectly reconstructs the original data. For example, 
when the filters operate on data values D(l) , D(2) , D(3) 
and D(4), outputs H(l) and G(l) are generated. Index x in 
this case would be 2. Due to the presence of the as 
the index for the filters H and G, the values of x can 

10 only be even integers. 

To simplify the computational complexity involved in 
performing the transformation on real data, the 
coefficients of the four coefficient Daubechies filter 
which are non-rational numbers are converted into rational 

15 numbers which can be efficiently implemented in software 
or hardware. Floating point coefficients are not used 
because performing floating point arithmetic is time 
consuming and expensive when implemented in software or 
hardware. 

20 To convert the four Daubechies coefficients for 

implementation, three relationships of the coefficients a, 
b, c and d are important. In order for the H filter to 
have unity gain, the following equation must hold: 

a + b + c- d«l (equ. 14) 

25 In order for the G filter to reject all zero frequency 
components in the input data values, the following 
equation must hold: 

a-b+c+d=0 (equ. 15) 

In order for the resulting H and G filters to be able to 
3 0 generate a decomposition which is perfectly reconstruct - 
ible into the original image data the following equation 
must hold: 
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ac - bd = 0 



PCT/CB94/00677 
(egu. 16) 



True four coefficient Daubechies filters satisfy the above 
three equations 14, 15, and 16. However, when the 
coefficients of the true low and high pass four 
5 coefficient Daubechies filters are converted for 

implementation, at least one of the three relationships 
must be broken. In the preferred embodiment, unity gain 
and the rejection of all zero frequency components are 
maintained. It is the third relationship of equation 16 

10 that is compromised. Perfect reconstruction is 

compromised because the process of compressing image data 
itself inherently introduces some noise due to the tree 
coding and quantization of the present invention. The 
reconstructed data values therefore necessarily involve 

15 noise when a real-world image is compressed and then 

reconstructed. We define filters which satisfy equations 
14 , and 15 and approximately satisfy equation 16 , 
quasi-perfect reconstruction filters. 

Table 2 illustrates a process of converting the 

20 coefficients a, b, c and d for implementation. 

a - 1±& « .3415(32) - 10.92 
8 

b * * .5915(32) » 18.92 

8 

C * ll& s .1585 (32) = 5.072 
8 

25 d » = .0915(32) = 2,928 

8 

Table 2 

The true four coefficient Daubechies filter coefficients 
are listed in the left hand column of Table 2. In the 
next column to the right, the true coefficients are shown 
30 rounded to four places beyond the decimal point. The 



* 11 
32 

- 11 
32 

32 

32 
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rounded coefficients are scaled by a factor of 32 to 
achieve the values in the next column to the right. From 
each value in the third column, an integer value is 
selected, which integers are selected has a dramatic 
5 effect on the complexity of the software or hardware which 
compresses the image data. The selected integers are 
divided by 3 2 so that the scaling by 3 2 shown in the 
second column does not change the values of the resulting 
converted coefficients . 

10 In selecting the integers for the fourth column, the 

relationship of the three equations 14 , 15 and 16 are 
observed. In the case of a - 11/32, b = 19/32, c = 5/32 
and d = 3/32, the relationships a+b+c-d=l and a-b+c+d=0 
both are maintained. Because the converted coefficients 

15 in the rightmost column of Table 2 are quite close to the 
true coefficient values in the leftmost column, the 
resulting four coefficient filters based on coefficients 
a f b, c and d allow near perfect reconstruction. On a 
typical 640 by 480 image, the error between the original 

20 and reconstructed data values after forward and then 

inverse transformation has been experimentally verified to 
exceed 50 dB. 

The resulting high pass four coefficient quasi- 
Daubechies filter is: 

25 H(|) = ^D(x-l) + jfD(x) + £D(X+1) - £D(x+2) (equ. 17) 

The resulting low pass four coefficient quasi-Daubechies 
filter is: 

G(|) - £D(x-l) + £D(x) - i|D(x+l) + jiD(x+2) (equ. 18) 

Because the high and low pass four coefficient quasi* 
30 Daubechies filters satisfy equations 14 and 15 and 

approximately satisfy equation 16, the high and low pass 
four coefficient quasi-Daubechies filters are quasi- 
perfect reconstruction filters. 
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Note that the particular ccnverted coefficients of 
the quasi-Daubechies filters of equations 17 and IB result 
in significant computational simplicity when 
implementation is either software and/or hardware. 
5 Multiplications and divisions by factors of two such as 
multiplications and divisions by 32 are relatively simple 
to perform. In either hardware or software, a 
multiplication by 2 or a division by 2 can be realized by 
a shift. Because the data values being operated on by the 
10 digital filter already exist in storage when the filter is 
implemented in a typical system, the shifting of this data 
after the data has been read from storage requires little 
additional computational overhead. Similarly, changing 
the sign of a quantity involves little additional 
15 overhead. In contrast, multiplication and division by 
numbers that are not a power of 2 require significant 
overhead to implement in both software and hardware. The 
selection of the coefficients in equations 17 and 18 
allows H(x) and G(x) to be calculated with only additions 
20 and shifts. In other words, all multiplications and 

divisions are performed without multiplying or dividing by 
a number which is not a power of 2. Due to the digital 
filter sequencing through the data values, pipelining 
techniques can also be employed to reduce the number of 
25 adds further by using the sums or differences computed 
when the filters were operating on prior data values. 

Moreover, the magnitudes of the inverse transform 
filter coefficients are the same as those of the transform 
filter itself. As described further below, only the order 
30 and signs of the coefficients are changed. This reduces 
the effective number of multiplications which must be 
performed by a factor of two when the same hardware or 
software implementation is to be used for both the forward 
and inverse transform. The fact that the signal being 
35 analyzed is being sub-sampled reduces the number of 
additions by a factor of two because summations are 
required only on the reading of every other sample. The 
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effective number of filters is therefore only one to both 
transform the data into the decomposition and to inverse 
transform the decomposition back into the image data. 

IMAGE COMPRESSION AND DECOMPRESSION USING THE 
5 QUASI -PERFECT RECONSTRUCTION TRANSFORM 

Color images can be decomposed by treating each Red- 
Green-Blue (or more usually each Luminance-Chrominance- 
Chrominance channel) as a separate image. In the case of 
Luminance-Chrominance-Chrominance (YUV or YIQ) images the 

10 chrominance components may already have been sub-sampled. 
It may be desirable therefore, to transform the 
chrominance channels through a different number of octaves 
than the luminance channel. The eye is less sensitive to 
chrominance at high spatial frequency and therefore these 

15 channels can be sub-sampled without loss of perceived 

quality in the output image. Typically these chrominance 
channels are sub-sampled by a factor of two in each 
dimension so that they together take only 50 percent of 
the bandwidth of the luminance channel. When implementing 

20 an image compression technique, the chrominance channels 
are usually treated the same way as the luminance channel. 
The compression technique is applied to the three channels 
independently. This approach is reasonable except in the 
special cases where very high compression ratios and very 

25 high quality output are required. To squeeze the last 
remaining bits from a compression technique or to achieve 
more exacting quality criteria, knowledge of how the 
chrominance rather than luminance values are perceived by 
the human visual system can be applied to improve the 

3 0 performance of the compression technique by better 
matching it with the human visual system. 

Figure 10 is an illustration of a two dimensional 
matrix of data values. There are rows of data values 
extending in the horizontal dimension and there are 

3 5 columns of data values extending in the vertical 

dimension. Each of the data values may, for example, be 
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an 8-bit binary number cf image pixel information such as 
the luminance value of a pixel. The data values of Figure 
10 represent an image of a black box 100 on a white 
background 101. 
5 To transform the data values of the image of Figure 

10 in accordance with one aspect of the present invention, 
a high pass four coefficient quasi-Daubechies digital 
filter is run across the data values horizontally, row by 
row, to result in a block 102 of high pass output values G 
10 shown in Figure 11. The width of the block 102 of high 
pass output values in Figure 11 is half the width of the 
original matrix of data values in Figure 10 because the 
high pass four coefficient quasi-Daubechies digital filter 
is moved across the rows of the data values by twos. 
15 Because only one additional digital filter output is 

generated for each additional two data values processed by 
the digital filter, the data values of Figure 10 are said 
to have been sub-sampled by a factor of two. 

Figure 12 illustrates the sub-sampling performed by 
20 the high pass digital filter. High pass output G, is 

generated by the high pass digital filter from data values 
D u D 2 , D 3 and D«. The next high pass output generated, 
output G 2 , is generated by the high pass digital filter 
from data values D 3 , D 4 , D 3 and D 6 . The high pass digital 
25 filter therefore moves two data values to the right for 
each additional high pass output generated. 

A low pass four coefficient quasi-Daubechies digital 
filter is also run across the data values horizontally, 
row by row, to generate H block 103 of the low pass 
3 0 outputs shown in Figure 11. This block 103 is generated 
by sub-sampling the data values of Figure 10 in the same 
way the block 102 was generated. The H and G notation for 
the low and high pass filter outputs respectively is used 
as opposed to the S } and 0 } notation used by Mallat to 
3 5 simplify the description of the two-dimensional wavelet 
transform. 

Figure 13 illustrates the sub-sampling of the low 
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pass digital filter. Low pass output H, is generated by 
the low pass digital filter from data values D,, Dj, D 3 and 
D 4 . The next low pass output generated, output H 7 , is 
generated by the low pass digital filter from data values 
5 D 3 , D 4 , D 3 and D 6 . The low pass digital filter therefore 
moves two data values to the right for each additional low 
pass output generated. 

After the high and low pass four coefficient guasi- 
Daubechies digital filters have generated blocks 102 and 
10 103, the high and low pass four coefficient guasi- 
Daubechies digital filters are run down the columns of 
blocks 102 and 103. The values in blocks 102 and 103 are 
therefore sub-sampled again. The high pass four 
coefficient quasi-Daubechies digital filter generates 
15 blocks 104 and 105. The low pass four coefficient quasi- 
Daubechies digital filter generates blocks 106 and 107. 
The resulting four blocks 104-107 are shown in Figure 14. 
Block 106 is the low frequency component of the original 
image data. Blocks 107, 104 and 105 comprise the high 
20 frequency component of the original image data. Block 106 
is denoted block HH. Block 107 is denoted block GH. 
Block 104 is denoted block HG. Block 105 is denoted block 
GG. 

This process of running the high and low pass four 
25 coefficient quasi-Daubechies digital filters across data 
values both horizontally and vertically to decompose data 
values into high and low frequency components is then 
repeated using the data values of the HH block 106 as 
input data values. The result is shown in Figure 15. 
30 Block 108 is the low frequency component and is denoted 
block HHHH. Blocks 109, 110 and 111 comprise octave 1 of 
the high frequency component and are denoted HHHG, HHGH, 
HHGG, respectively. Blocks HG , GH and GG comprise octave 
0 of the high frequency component. 
35 Although this recursive decomposition process is only 

repeated twice to produce high pass component octaves 0 
and 1 in the example illustrated in connection with 
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Figures 10-15, other numbers of recursive decomposition 
steps are possible. Recursively decomposing the original 
data values into octaves 0, 1, 2 and 3 has been found to 
result in satisfactory results for roost still image data 
5 and recursively decomposing the original data into octaves 
0, 1, and 2 has been found to result in satisfactory 
results for most video image data. 

Moreover, the horizontal and subsequent vertical 
operation of the high and low pass filters can also be 
10 reversed. The horizontal and subsequent vertical sequence 
is explained in connection with this example merely for 
instructional purposes. The filters can be moved in the 
vertical direction and then in the horizontal direction. 
Alternatively, other sequences and dimensions of moving 
15 the digital filters through the data values to be 
processed is possible. 

It is also to be understood that if the original 
image data values are initially arrayed in a two 
dimensional block as shown in Figure 10, then the 
20 processing of the original image data values by the high 
and low pass filters would not necessarily result in the 
HH values being located all in an upper right hand 
quadrant as is shown in Figure 14. To the contrary, 
depending on where the generated HH values are written, 
25 the HH data values can be spread throughout a block. The 
locations of the HH values are, however, determinable. 
The HH values are merely illustrated in Figure 14 as being 
located all in the upper lefthand quadrant for ease of 
illustration and explanation. 
30 Figure 16 is an illustration showing one possible 

twelve-by-twelve organization of original image data 
values in a two dimensional array. Figure 16 corresponds 
with Figure 10. The location in the array of each data 
value is determined by a row number and column number. A 
3 5 row number and column number of a data value may, for 

example, correspond with a row address and column address 
in an addressed storage medium. This addressed storage 
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medium may, for example, be a semiconductor memory, a 
magnetic storage medium, or an optical storage medium. 
The row and column may, for example, also correspond with 
a pixel location including a location of a pixel on a 
5 cathode-ray tube or on a flat panel display. 

Figure 17 is an illustration showing the state of the 
two dimensional array after a one octave decomposition. 
The HH low frequency components are dispersed throughout 
the two dimensional array as are the HG values, the GH 

10 values, and the GG values. The subscripts attached to the 
various data values in Figure 17 denote the row and column 
location of the particular data value as represented in 
the arrangement illustrated in Figure 14. HHco, HHo,, HH^, 
HHoo, HHoi and HHq,, for example, are six data values which 

15 correspond with the top row of data values in HH block 106 
of Figure 14. HHoo, HH l0 , HH^, HH*, Mi* and HHjo, for 
example, are six data values which correspond with the 
leftmost column of data values in HH block 106 of Figure 
14. 

20 When the high and the low pass forward transform 

digital filters operate on the four data values D 0l , D^, D© 
and Dot of Figure 16, the output of the low pass forward 
transform digital filter is written to location row 0 
column 2 and the output of the high pass forward transform 

25 digital filter is written to location row 0 column 3. 
Next, the high and low pass forward transform digital 
filters are moved two locations to the right to operate on 
the data values Dq, D w , and Do*. The outputs of the low 
and high pass forward transform digital filters are 

30 written to locations row 0 column 4 and row 0 column 5, 
respectively. Accordingly, the outputs of the low and 
high frequency forward transform digital filters are 
output from the filters to form an interleaved sequence of 
low and high frequency component data values which 

35 overwrite the rows of data values in the two dimensional 
array. 

Similarly, when the low and high pass forward 
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transform digital filters operate on the four data values 
at locations column 0, rows 1 through 4, the output of the 
low pass forward transform digital filter is written to 
location column 0 row .2 . The output of the high pass 
5 forward transform digital filter is written to location 
column 0 row 3. Next the low and high pass forward 
transform digital filters are moved two locations downward 
to operate on the data values at locations column 0, rows 
3 through 6. The outputs of the low and high pass forward 

10 transform digital filters are written to locations column 
0 row 4 and column 0 row 5, respectively. Again, the 
outputs of the low and high pass forward transform digital 
filters are output from the filters in an interleaved 
. fashion to overwrite the columns of the two dimensional 

15 array. 

Figure 18 is an illustration showing the state of the 
two dimensional array after a second octave decomposition. 
The HHHH low frequency components corresponding which 
block 108 of Figure 15 as well as the octave l high 
2 0 frequency components HHGH, HHHG and HHGG are dispersed 
throughout the two dimensional array. When the HH values 
HHo,, HH<b, HHoj and HHo, of Figure 17 are processed by the 
low and high pass forward transform digital filters, the 
outputs are written to locations row 0 column 4 and row o 
25 column 6, respectively. Similarly, when the values at 
locations column 0, rows 2, 4, 6 and 8 are processed by 
the low and high pass forward transform digital filters, 
the results are written to locations column 0 row 4 and 
column 0 row 6, respectively. The data values in Figure 
30 18 are referred to as transformed data values. The 
transformed data values are said to comprise the 
decomposition of the original image values. 

This method of reading data values, transforming the 
data values, and writing back the output of the filters is 
35 easily expanded to a two dimensional array of a very large 
si2e. Only a relatively small number of locations is 
shown in the two dimensional array of Figures 10-18 for 
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ease of explanation and clarity of illustration. 

The transformed data values are reconverted back into 
image data values substantially equal to the original 
image data by carrying out a reverse process. This 
5 reverse process is called the inverse transform. Due to 
the interleaved nature of the decomposition data in Figure 
18, the two digital filters used to perform the inverse 
transform are called interleaved inverse transform digital 
filters. Odd data values are determined by an odd 
10 interleaved inverse digital filter 0. Even data values 
are determined by the even interleaved inverse transform 
digital filter E. 

The odd and even interleaved inverse digital filters 
can be determined from the low and high pass forward 
15 transform digital filters used in the forward transform 
because the coefficients of the odd interleaved inverse 
transform digital filters are related to the coefficients 
of the low and high pass forward transform filters. To 
determine the coefficients of the odd and even interleaved 
20 inverse transform digital filters, the coefficients of the 
low and high pass forward transform digital filters are 
reversed. Where the first, second, third and fourth 
coefficients of the low pass forward transform digital 
filter H of equation 17 are denoted a, b, c and -d, the 
25 first, second, third and fourth coefficients of a reversed 
filter H* are denoted -d, c, b and a. Similarly, where 
the first, second, third and fourth coefficients of the 
high pass forward transform digital filter G of equation 
18 are denoted d, c, -b and a, the first, second, third 
30 and fourth coefficients of a reverse filter G* are denoted 
a, -b, c and d. 

The first through the fourth coefficients of the even 
interleaved inverse transform digital filter E are the 
first coefficient of H*, the first coefficient of G*, the 
35 third coefficient of H*, and the third coefficient of G*. 
The coefficients of the even interleaved inverse transform 
digital filter E therefore are -d, a, b and c. In the 
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case of the low and high pass four coefficient guasi- 
Daubechies filters used in the transform where a=il, b=», 
c=£ and d=£, the even interleaved inverse transform 
digital filter is: 



D(2x) 

2 »-£H(x-l) + £G(x-l) + i| H (x) + £ G (x) (equ. i 9 ) 



where H(x-l), G(x-i), H (x) and G(x) are transformed data 
values of a decomposition to be inverse transformed. 

The first through the fourth coefficients of the odd 
interleaved inverse transform digital filter O are the 

10 second coefficient of H*, the second coefficient of G*, 
the fourth coefficient of H*, and the fourth coefficient 
of G*. The coefficients of the odd interleaved inverse 
transform digital filter 0 therefore are c, -b, a and d. 
In the case of the low and high pass four coefficient 

15 guasi-Daubechies filters used in the transform where a=ii, 

cts TS and da TS> tne °<** interleaved inverse transfora 
digital filter is: 

D(2x-l) 

2 - £H(x-l) - iiG(x-l) + jfH(x) + £G(x) (equ. 20) 

where H(x-l), G(x-l), H(x) and G(x) are data values of a 
20 decomposition to be inverse transformed. 

To inverse transform the transformed data values of 
Figure 18 into the data values of Figure 17, the HHHG, 
HHGG, HHGH and data values are inverse transformed with 
the HHHH data values to create the HH data values of 
25 Figure 17. This process corresponds with the inverse 
transformation of HHHG block 109, HHGH block 110, HHGG 
block 111, and HHHH block 108 of Figure 15 back into the 
HH data values of block 106 of Figure 14. The HG, GH and 
GG data values of Figure 18 are therefore not processed by 
30 the odd and even interleaved inverse transform digital 
filters in this step of the inverse transform. 
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In Figure ie, the odd interleaved inverse transform 
digital filter processes the values in locations column 0, 
rows 0, 2, 4 and 6 to generate the odd data value at 
location column 0 row 2. The even interleaved inverse* 
5 transform digital filter data also processes the values in 
the same locations to generate the even data value at 
location column 0 row 4. The odd and even interleaved 
inverse transform digital filters then process the values 
in locations column 0, rows 4, 6, 8 and A to generate the 
10 values at locations column 0 row 6 and column 0 row 8, 
respectively. Each of the six columns 0, 2, 6, 4, 8, 'and 
A of the values of Figure 18 are processed by the odd and 
even interleaved inverse transform digital filters in 
accordance with this process. 
15 The various locations are then processed again by the 

odd and even interleaved inverse transform digital 
filters, this time in the horizontal direction. The odd 
and even interleaved inverse transform digital filters 
process the values at locations row 0 columns 0, 2, 4 and 
20 6 to generate the values at locations row 0 column 2 and 
row 0 column 4, respectively. The odd and even 
interleaved inverse transform digital digital filters 
process the values at locations row 0 columns 4, 6, 8 and 
A to generate the values at locations row o column 6 and 
25 row 0 column 8 f respectively. Each of the six rows 0, 2, 
4 and 8 and of values are processed by the even and odd 
interleaved inverse transform digital filters in 
accordance with this process. The result is the 
reconstruction shown in Figure 17. 
30 The even and odd interleaved inverse transform 

digital filters then process the values shown in Figure 17 
into the data values shown in Figure 16. This inverse 
transformation corresponds with the transformation of the 
HH block 106, the HG bock 104, the GH block 107 and the GG 
35 block 105 of Figure 14 into the single block of data value 
of Figure 10. The resulting reconstructed data values of 
Figure 16 are substantially equal to the original image 
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data values. 

Note, however, that in the forward transform of the 
data values of Figure 16 into the data values of Figure 17 
that the low and high pass four coefficient quasi- 
5 Daubechies digital filters cannot generate all the data 
values of Figure 17 due to the digital filters requiring 
data values which are not in the twelve by twelve matrix 
of data values of Figure 16. These additional data values 
are said to be beyond the "boundary" of the data values to 
10 be transformed. 

Figure 19 illustrates the high pass four coefficient 
quasi-Daubechies digital filter operating over the 
boundary to generate the G 0 data value. In order to 
generate the G 0 data value in the same fashion that the 
15 other high frequency G data values are generated, the high 
pass digital filter would require data values D 4 , D 0 , D, 
and r>2 as inputs. Data value D.,, however, does not exist. 
Similarly, Figure 20 illustrates the low pass four 
coefficient quasi-Daubechies digital filter operating over 
2 0 the boundary to generate the Ho data value. In order to 
generate the Hq data value in the same fashion that the 
other low frequency H data values are generated, the low 
pass digital filter would require data values D.,, D 0 , D, 
and Di as inputs. Data value D.,, however, does not exist. 
25 The present invention solves this boundary problem by 

using additional quasi-Daubechies digital filters to 
generate the data values adjacent the boundary that would 
otherwise require the use of data values outside the 
boundary. There is a high pass "start" quasi-Daubechies 
30 forward transform digital filter G, which is used to 
generate the first high pass output G 0 . There is a low 
pass "start" quasi-Daubechies forward transform digital 
filter H, which is used to generate the first low pass 
output Hq. These start quasi-Daubechies forward transform 
35 digital filters are three coefficient filters rather than 
four coefficient filters and therefore require only three 
data values in order to generate an output. This allows 
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the start quasi-Daubechies forward transform digital 
filters to operate at the boundary and to generate the 
first forward transform data values without extending over 
the boundary. 

5 Figure 21 illustrates the low and high pass start 

quasi-Daubechies forward transform digital filters 
operating at the starting boundary of image data values D 0 
through D B . The three coefficient low and high pass start 
quasi-Daubechies forward transform digital filters operate 
10 on data values D 0 , Dj and D, to generate outputs Hq and G 0 , 
respectively. H,, H 7 , H 3 and H*, on the other hand, are 
generated by the low pass four coefficient guasi- 
Daubechies forward transform digital filter and G,, G 2 , G 3 
and G 4 are generated by the high pass four coefficient 
15 quasi-Daubechies forward transform digital filter. 

A similar boundary problem is encountered at the end 
of the data values such as at the end of the data values 
of a row or a column of a two-dimensional array. If the 
low and high pass four coefficient quasi-Daubechies 
20 filters G and H are used at the boundary in the same 
fashion that they are in the middle of the data values, 
then the four coefficient quasi-Daubechies forward 
transform digital filters would have to extend over the 
end boundary to generate the last low and high pass 
25 outputs, respectively. 

The present invention solves this boundary problem by 
using additional quasi-Daubechies forward transform 
digital filters in order to generate the transformed data 
values adjacent the end boundary that would otherwise 
30 require the use of data outside the boundary. There is a 
low pass "end" quasi-Daubechies forward transform digital 
filter H, which is used to generate the last low pass 
output. There is a high pass "end" quasi-Daubechies 
forward transform digital filter G, which is used to 
35 generate the last high pass output. These two end quasi- 
Daubechies forward transform digital filters are three 
coefficient filters rather than four coefficient filters 
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and therefore require only three data values in order to 
generate an output. This allows the end quasi-Daubechies 
forward transform digital filters to operate at the 
boundary and to generate the last transform data values 
5 without extending over the boundary. 

Figure 21 illustrates two low and high pass end 
quasi-Daubechies forward transform digital filters 
operating at the end boundary of the image data. These 
three coefficient low and high pass end quasi-Daubechies 
10 forward transform digital filters operate on data values 
D 9 , D x and D B to generate outputs H 5 and G 3 , respectively. 
This process of using the appropriate start or end low or 
high pass filter is used in performing the transformation 
at the beginning and at the end of each row and column of 
IS the data values to be transformed. 

The form of the low pass start quasi-Daubechies 
forward transform digital filter H, is determined by 
selecting a value of a hypothetical data value D., which 
would be outside the boundary and then determining the 
20 value of the four coefficient low pass quasi-Daubechie6 
forward transform filter if that four coefficient forward 
transform filter were to extend beyond the boundary to the 
hypothetical data value in such a way as would be 
necessary to generate the first low pass output Ho. This 
25 hypothetical data value D., outside the boundary can be 
chosen to have one of multiple different values. In some 
embodiments, the hypothetical data value D., has a value 
equal to the data value D 0 at the boundary. In some 
embodiments, the hypothetical data value D., is set to zero 
30 regardless of the data value D 0 . The three coefficient low 
pass start quasi-Daubechies forward transform digital 
filter H, therefore has the form: 

Ho - Kl + bD 0 + cD( - dDj (equ. 21) 



where Kl is equal to the product aD 4 , where D 0 is the first 
35 data value at the start boundary at the start of a 
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sequence of data values, and where a, b, c and d are the 
four coefficients of the four coefficient low pass quasi- 
Daubechies forward transform digital filter. If, for 
example, hypothetical data value D., is chosen to be equal 
5 to the data value D 0 adjacent but within the boundary, then 
Kl=aD 0 where a = 11/32 and D 0 is the data value adjacent 
the boundary, equation 21 then becomes: 

Ho • (a+b)D 0 + cD x - dD, (equ. 22) 

The form of the high pass start quasi-Daubechies 
10 forward transform digital filter G, is determined by the 
same process using the same hypothetical data value D. t . 
The high pass start quasi-Daubechies forward transform 
digital filter G, therefore has the form: 

G 0 - K2 + CD© - bD, + aOj (equ. 23) 

15 where K2 is equal to the product dD.,, where D 0 is the first 
data value at the boundary at the start of a sequence of 
data values, and where a, b, c and d are the four 
coefficients of the four coefficient high pass quasi* 
Daubechies forward transform digital filter. If 

20 hypothetical data value D., is chosen to be equal to D 0/ 
then equation 23 becomes: 

G 0 - (d + c)D 0 - bD, + aDj (equ. 24) 

The form of the low pass end quasi-Daubechies forward 
transform digital filter H, is determined in a similar way 

25 to the way the low pass start quasi-Daubechies forward 

transform digital filter is determined. A value of a data 
value D c is selected which would be outside the boundary. 
The value of the four coefficient low pass quasi- 
Daubechies forward transform digital filter is then 

30 determined as if that four coefficient filter were to 
extend beyond the boundary to data value D c in such a way 
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as to generate the last low pass output H 5 . The three 
coefficient low pass end quasi-Daubechies forward 
transform digital filter therefore has the form: 

H 3 = aD, + bD A + cD B - K3 (equ. 2 5) 

5 where K3 is equal to the product dD c , where D B is the last 
data value of a sequence of data values to be transformed, 
and where a, b, c and d are the four coefficients of the 
four coefficient low pass quasi-Daubechies filter. D B is 
the last data value in the particular sequence of data 
10 values of this example and is adjacent the end boundary. 
In the case where the hypothetical data value D e is chosen 
to be equal to the data value D B adjacent but within the 
end boundary, then K3=dD B and equation 25 becomes: 

H 5 « aD, + bD A + (c-dJDe (equ. 26) 

15 The form of the high pass end quasi-Daubechies 

forward transform digital filter G # is determined by the 
same process using the same data value D c . The three 
coefficient high pass end quasi-Daubechies forward 
transform digital filter therefore has the form: 

20 G 5 ■ dD, + cD A - bD B + K4 (egu, 27) 

where K4 is equal to the product aD c , where D B is the last 
data value in this particular sequence of data values to 
be transformed, and where a, b, c and d are the four 
coefficients of the four coefficient high pass quasi- 
25 Daubechies forward transform digital filter. D B is 

adjacent the end boundary. If hypothetical data value D c 
is chosen to be equal to D B/ then equation 27 becomes: 

G, = dD, + cD A + (-b+a)D B (equ. 28) 



It is to be understood that the specific low and high 
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pass end quasi-Daubechies forward transform digital 
filters are given above for the case of data values D 0 
through D B of Figure 21 and are presented merely to 
illustrate one way in which the start and end digital 
5 filters may be determined. In the event quasi-Daubechies 
filters are not used for the low and high pass forward 
transform digital filters, the same process of selecting a 
hypothetical data value or values outside the boundary and 
then determining the value of a filter as if the filter 

10 were to extend beyond the boundary can be used. In some 
embodiments, multiple hypothetical data values may be 
selected which would all be required by the digital 
filters operating on the inside area of the data values in 
order to produce an output at the boundary. Thia boundary 

15 technique is therefore extendable to various types of 
digital filters and to digital filters having numbers of 
coefficients other than four. 

As revealed by Figure 22, not only does the forward 
transformation of data values at the boundary involve a 

20 boundary problem, but the inverse transformation of the 
transformed data values back into original image data 
values also involves a boundary problem. In the present 
example where four coefficient quasi-Daubechies filters 
are used to forward transform non-boundary data values, 

25 the inverse transform involves an odd inverse transform 
digital filter as well as an even inverse transform 
digital filter. Each of the odd and even filters has four 
coefficients. The even and odd reconstruction filters 
alternatingly generate a sequence of inverse transformed 

3 0 data values. 

In Figure 22, the data values to be transformed are 
denoted Ho, G 0 . . . H4, G 4 , H 3 , G 5 . Where the forward 
transform processes the rows first and then the columns , 
the inverse transform processes the columns first and then 

35 the rows. Figure 22 therefore shows a column of 

transferred data values being processed in a first step of 
the inverse transform. Both the forward and the inverse 
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transforms in the described example, however, process the 
columns in a dov/nward direction and process the rows in a 
left-right direction. 

In Figure 22, the inverse transformed data values 
5 reconstructed by the inverse transform digital filters are 
denoted D 0 , D lf D 2 , D 3 . . . D B . The odd inverse transform 
digital filter outputs are shown on the left and the even 
inverse transform digital filter outputs are shown on the 
right. 

10 At the beginning of the sequence of data values Ho, 

G 0 , H,, Gj ... H 5 and G 5 to be inverse transformed, the four 
coefficient odd and even inverse transform digital filters 
determine the values of reconstructed data values D, and Dj 
using values H<>, G 0 , H, and G,, respectively. Reconstructed 
15 data value D 0 , however, cannot be reconstructed from the 
four coefficient even inverse transform digital filter 
without the four coefficient even inverse transform 
digital filter extending beyond the boundary. If the four 
coefficient even inverse transform filter were to be 
20 shifted two data values upward so that it could generate 
data value D 0 , then the even four coefficient inverse 
transform digital filter would require two additional data 
values to be transformed, data values G., and H.,. Hq is, 
however, the first data value within the boundary and is 
25 located adjacent the boundary. 

To avoid the even four coefficient inverse transform 
digital filter extending beyond the boundary, a two 
coefficient inverse transform digital filter is used: 

D 0 « 4[(b-a)Ho + (c-d)G 0 ] (egu. 29) 

3 0 in the case where Kl « aD 0 and K2 = dD 0 . D 0 is the first 
data value and Hq is the data value to be inverse 
transformed adjacent the start boundary. This even start 
inverse transform digital filter has the form of the four 
coefficient even inverse transform digital filter except 

3 5 that the G., data value outside the boundary is chosen to 
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be equal to H 0 , and the H., data value cutside the boundary 
is chosen to be equal to G 0 . The even start invere 
transform digital filter therefore determines D 0 as a 
funcrion of only Ho and G 0 rather than as a function of H. { , 
5 G. l# H 0 and G 0 . 

Similarly, a two coefficient odd end inverse 
transform digital filter is used to avoid the four 
coefficient odd inverse transform digital filter from 
extending beyond the end boundary at the other boundary of 
10 a sequence of data values to be inverse transformed. The 
two coefficient odd end inverse transform digital filter 
used is: 

D B - 4[(c+d)H 3 - (a+b)G 3 ] (equ. 30) 

in the case where K4 - aD B and K3 - dD B . D 8 is the data 
15 value to be determined and G 9 is the data value to be 
inverse transformed adjacent the end boundary. This odd 
end inverse transform digital filter has the form of the 
four coefficient odd inverse transform digital filter 
except that the H 6 data value outside the boundary is 
2 0 chosen to be equal to G 3 and the G tf data value outside the 
boundary is chosen to be equal to H 3 . The odd end inverse 
transform digital filter therefore determines D B as a 
function of only H 3 and G 5 rather than as a function of H 5 , 
G 5 , H« and G 6 . 

25 It is to be understood that the particular even start 

and odd end inverse transform digital filters used in this 
embodiment are presented for Illustrative purposes only. 
Where there is a different number of data values to be 
inverse transformed in a sequence of data values, an even 

30 end inverse transform digital filter may be used at the 
boundary rather than the odd end inverse transform digital 
filter. The even end inverse transform digital filter is 
an even inverse transform digital filter modified in 
accordance with the above process to have fever 

35 coefficients than the even inverse transform digital 
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filter operating on the inner data values. Where filters 
other than quasi-Daubechies inverse transform digital 
filters are used, start and end inverse transform digital 
filters can be generated from the actual even and odd 
5 inverse transform digital filters used to inverse 
transform data values which are not adjacent to a 
boundary. In the inverse transform, the start inverse 
transform digital filter processes the start of the 
transformed data values at the start boundary, then the 

10 four coefficient inverse transform digital filters process 
the non-boundary transformed data values, and then the end 
inverse transform digital filter processes the end of the 
transformed data values. 

The true Daubechies filter coefficients a, b, c and d 

15 fulfil some simple relationships which show that the 
inverse transform digital filters correctly reconstruct 
non-boundary original image data values. 

a+c - \ t b-d = A, c+d = ±, b-a = A (equ. 31) 

and the second order equations: 

20 ac-bd = 0, a a +b 2 +c 2 +d J = ± (equ. 32) 

Take two consecutive H,G pairs: 

(equ. 33) 
(equ. 34) 
(equ. 35) 
(equ. 36) 
transform 



H|-|j = aD(x-l)+bD(x)+cD(x+l)-dD(x+2) 

g|2TJ » dD(x-l)+cD(x)-bD(x+l)+aD(x+2) 

h|2?+iJ - aD(x+l)+bD(x+2)+cD(x+3)-dD(x+4) 

25 G ("f* 1 ) = dD ( x+1 ) +cD ( x+2 )' bD ( x+3 ) +a D(x+4) 

Multiplying Equations 33 to 36 using the inverse 
digital filters gives: 
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acD(x-l)+bcD(x)+c : D(x+l) -cdD(x+2) 


(egu. 


37) 


-(f) 


= -bdD (x-1) -bcD (x) +b J D (x+1) -abD (x+2 ) 


(egu. 


38) 


.H(|-l) 


= a 2 D(x+l)+abD(x+2)+acD(x+3)-adD(x+4) 


(egu. 


39) 


d«(|.l) 


- d 2 D ( x+ 1 ) +cdD ( x+2 ) -bdD ( x+3 ) +adD (x+4 ) 


(egu. 


40) 


-(f) ' 


= -adD ( x-1 ) -bdD (x) -cdD (x+1 ) +d J D (x+2 ) 


(egu. 


41) 


-(f) " 


adD ( x-1 } +acD (x) -abD (x+1 ) +a J D (x+2 ) 


(egu. 


42) 


bH(f-l) 


= abD ( x+1 ) +b J D ( x+2 ) +bcD ( x+3 ) -bdD (x+4 ) 


(egu. 


43) 


^(f* 1 ) 


= cdD (x+1 J +c J D (x+2 ) -bcD (x+3 ) +acD (x+4 ) 


(egu. 


44) 



Summing equations 37-40 and 41-44 yields: 



XO =H(|) - M(D ♦ aH(f .1) ♦ . 

(ac-bd)D(x-l) + (a J +b J +c J +d , )D(x+l) + (ac-bd)D(x+3) = D(x+l)/2 

(equ. 45) 

-dH(|) ♦ ,C(|) + ^n) + eel**!) . 

(ac-bd)D(x) + (a 2 +b 3 +c 2 +d 2 )D(x+2) + (ac-bd)D(x+4) » D(x+2)/2 
15 (equ. 46) 

Using the coefficients of the four coefficient true 
Daubechies filter, the relationships of equations 31 and 
32 hold. Equations 45 and 46 therefore show that with a 
one bit shift at the output, the original sequence of data 

2 0 values is reconstructed. 

Similarly, that the even start reconstruction filter 
of equation 29 and the odd end reconstruction filter of 
equation 3 0 correctly reconstruct the original image data 
adjacent the boundaries is shown as follows. 

25 For the even start filter, with the choice of Kl » aD 0 

and K2 » dD 0 in equations 29 and 3 0, we have: 
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Ho = (a+b)D 0 + cD, - dD 7 (egu. 47) 

G 0 - (c+d)D 0 - bD, + aDj (egu. 48) 

so 

bHo = b(a+b)D 0 + cbD, - dbD 2 (egu. 49) 

5 cG 0 = c(c+d)D 0 - cbD, + acDj (egu. SO) 

aHo - a(a+b)D 0 + acD, - adDj (egu. 51) 

dG 0 » d(c+d)D 0 - dbD, + adD, (egu. 51 •} 
and hence: from eguation 29: 

bHo + cG 0 - aHo - <3C 0 - (b'-a'+d-d 2 ) D 0 - (egu. 52) 

4 



10 For the odd end filter, with the choice of K 3 - dD B 

and K« = aD B , we have: 

H, « aO, + bD A + (c-d)D B (egu. 53) 

G, - dD, + cD A + (a-b)D B (egu. 54) 

cH, » acD, + bcD A + c(c-d)D B (egu. 55) 

15 -bGj = -bdD, - bcD A - b(a-b)D B (egu. 56) 

dH 5 = daD, + bdD A + d(c-d)D B (egu. 57) 

-aG, = -adD 9 - caD A - a(a-b)D B (egu. 58) 
and hence from eguation 30: 

(c+d)H 5 - (a+b)G, - (c a -d J +b a -a 1 )D i = -2s (egu. 59) 

4 
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This reveals that the start and end boundary inverse 
transform digital filters can reconstruct the boundary 
data values of the original image when low pass and high 
pass start and end digital filters are used in the forward 
5 transform. 

TREE ENCODING AND DECODING 
As described above, performing the forward quasi- 
perfect inverse transform does not reduce the number of 
data values carrying the image information. Accordingly, 
10 the decomposed data values are encoded such that not all 
of the data values need be stored or transmitted. The 
present invention takes advantage of characteristics of 
the Human Visual System to encode more visually important 
information with a relatively larger number of bits while 
15 encoding less visually important information with a 
relatively smaller number of bits* 

By applying the forward quasi-perfect inverse 
transform to a two-dimensional array of image data values, 
a number of sub-band images of varying dimensions and 

2 0 spectral contents is obtained. If traditional sub-band 

coding were used, then the sub-band images would be 
encoded separately without reference to each other except 
perhaps for a weighting factor for each band. This 
traditional sub-band encoding method is the most readily- 

25 recognized encoding method because only the spectral 
response is accurately localized in each band. 

In accordance with the present invention, however, a 
finite support wavelet is used in the analysis of an 
image, so that the sub-bands of the decomposition include 

30 spatially local information which indicate the spatial 
locations in which the frequency band occurs. Whereas 
most sub-band encoding methods use long filters in order 
to achieve superior frequency separation and maximal stop 
band rejection, the filter used in the present invention 

3 5 has compromised frequency characteristics in order to 

maintain good spatial locality. 
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Images can be thought of as comprising three 
components: background intensities, edges and textures. 
The forward quasi-perfect inverse transform separates the 
background intensities (the low pass luminance and 
5 chrominance bands) from the edge and texture information 
contained in the high frequency bands. Ideally , enough 
bandwidth would be available to encode, both the edges and 
the textures so that the image would reconstruct 
perfectly. The compression due to the encoding would then 

10 be entirely due to removal of redundancy within the 
picture. If, however, the compressed data is to be 
transmitted and/ or stored at low data transmission rates, 
some visual information of complex images must be lost. 
Because edges are a visually important image feature, the 

15 encoding method of the present invention locates and 

encodes information about edges or edge-like features for 
transmission or storage and places less importance on 
encoding textural information. 

There are no exact definitions of what constitutes an 

20 edge and what constitutes texture. The present invention 
uses a definition of an edge that includes many types of. 
textures. An edge or an edge-like feature is defined as a 
spatially local phenomenon giving rise to a sharp 
discontinuity in intensity, the edge or edge-like feature 

25 having non-zero spectral components over a range of 
frequencies. Accordingly, the present invention uses a 
frequency decomposition which incorporates spatial 
locality and which is invertible. The wavelet transform 
realized with quasi-perfect inverse transform digital 

30 filters meets these requirements. 

Because an edge has non-zero components over a range 
of frequencies of the decomposition in the same locality, 
an edge can be located by searching through the wavelet 
decomposition for non-zero data values that represent 

35 edges. The method begins searching for edges by examining 
the low frequency sub-bands of the decomposition. These 
bands have only a small number of data values because of 
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the subsampling used in the wavelet transform and because 
the spatial support of each low frequency data value is 
large. After a quick search of the lowest frequency sub- 
bands, the positions of potential edges are determined. 
5 Once the locations of the edges are determined in the 
lowest frequency sub-bands, these locations can be 
examined at a higher frequency resolutions to confirm that 
the edges exist and to more accurately determine their 
spatial locations . 
10 Figure 23 illustrates an example of a one-dimensional 

binary search. There are three binary trees arranged from 
left to right in the decomposition of Figure 23. There 
are three octaves, octaves 0, 1 and 2, of decomposed data 
values in Figure 23. The low pass component is not 
15 considered to be an octave of the decomposition because 
most of the edge information has been filtered out. 
Figures 24A-24D illustrate the forward transformation of a 
one-dimensional sequence of data values D into a sequence 
of transformed data values such as the tree structure of 
20 Figure 23. The data values of the sequence of Figure 24A 
are filtered into low and high frequency components H and 
G of Figure 2 4B. The low frequency component of Figure 
24B is then filtered into low and high frequency 
components HH and HG of Figure 24C. The low frequency 
25 component HH of Figure 24C is then filtered into low and 
high frequency components HHH and HHG. The transformed 
data values of HHH block 240 of Figure 240 correspond with 
the low frequency component data values A, G and M of 
Figure 23. The transformed data values of HHG block 241 
30 of Figure 24D correspond with the octave 2 data values B, 
H and N of Figure 23. The transformed data values of HG 
block 242 of Figure 24D correspond with the octave 1 data 
values of Figure 23. Similarly, the transformed data 
values of G block 243 correspond with the octave 0 data 
35 values of Figure 23. Although only three trees are shown 
in Figure 23, the number of HHH data values in block 240 
can be large and the size of the tree structure of Figure 



W0 94/23385 PCT/CB94/00677 

- 48 - 

23 can extend in the horizontal dimension in a 
corresponding manner. 

The encoding of a one dimensional wavelet 
decomposition such as the decomposition of Figure 23 is 
5 performed in similar fashion to a binary tree search. The 
spatial support of a given data value in a given frequency 
band is the same as two data values in the octave above it 
in frequency. Thus the wavelet decomposition is 
visualized as an array of binary trees such as is 
10 illustrated in Figure 23, each tree representing a spatial 
locality. The greater the number of transform octaves, 
the higher the trees extend upward and the fewer their 
number . 

As illustrated in Figure 23, each of the data values 
15 of the decomposition represents a feature which is either 
"interesting" to the human visual system, or it represents 
a feature that is "non- interesting" to the human visual 
system. A data value representing an edge of an object in 
an image or an edge-like feature is an example of an 
20 "interesting" data value. The encoding method is a depth 
first search, which starts at the trunk of a tree, ascends 
up the branches of the tree that are interesting, and 
terminates at the non-interesting branches. After all the 
branches of a tree have been ascended until a non- 
25 interesting data value is encountered or until the top of 
the branch is reached, the encoding of another tree is 
begun. Accordingly, as the encoding method follows the 
interesting data values of Figure 23 from octave 2 to 
octave 1 to octave 0, the edge is followed from low to 
30 high frequency resolution and an increasingly better 
approximation to the spatial position and shape of the 
edge is made. Conversely, if at any stage, a non- 
interesting data value is found, the search is terminated 
for data values above that non-interesting data value. 
35 The higher frequency data values of the .tree above a 
non-interesting data value are assumed to be non- 
interesting because the corresponding low frequency data 
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values did not indicate the presence of an edge at this 
location. Any interesting data values that do exist in 
the higher frequency bands above a non-interesting data 
value in a low frequency band are rejected as noise. 
5 The one-dimensional tree structure of Figure 23 is 

encoded as follows. The low frequency components carry 
visually important information and are therefore always 
considered to be "interesting". The method of encoding 
therefore starts with low frequency component A. This 
10 data value is encoded. Next, the octave 2 data value B is 
tested to determine if it represents an edge or an edge- 
like feature which is "interesting" to the human visual 
system. Because data value B is interesting, a token is 
generated representing that the bits to follow will 
15 represent an encoded data value. Interesting data value B 
is then encoded. Because this tree has not yet 
terminated, the method continues upward in frequency. 
Data value C of octave 1 is then tested. For purpose of 
this example, data value C is considered to be interesting 
20 as are data values A, B, C, D, G, H, J, L and H as 

illustrated in Figure 23. A token is therefore generated 
indicating an encoded data value will follow. After the 
token is sent, data value C is encoded. Because this 
branch has still not terminated in a non-interesting data 
25 value, the method continues upward in frequency. Data 
value D is tested to determine whether or not it is 
interesting. Because data value D is interesting, a token 
is generated and data value D is encoded. Because octave 
0 is the highest octave in the decomposition, the encoding 
30 method tests the other branch originating from previous 
interesting data value C Data value E however tests to 
be non-interesting. A non-interesting token is therefore 
generated. Data value E is not encoded and does not 
appear in the compressed data, with both branches 
35 originating at data value C terminated, the method 

proceeds down in frequency to test the remaining branches 
originating from the previous interesting data value B. 
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Data value F is, however, determined to be non- 
interesting. A non-interesting token is therefore 
generated and data value F is not encoded and does not 
appear in the encoded data. Because this branch has 
5 terminated, all data values higher in frequency above data 
value F are considered to be non-interesting. A decoding 
device receiving the sequence of encoded data values and 
tokens can determine from the non-interesting token that 
all corresponding higher frequency data values were 

10 considered to be non-interesting by the encoding device. 
The decoding device can therefore write the appropriate 
data values as non-interesting and write zeroes to these 
locations obviating the need for the encoding device to 
transmit each non-interesting data value above F. With 

15 the first tree encoded, the method proceeds to the next 
low frequency component, data value 6. This is a low 
frequency component and therefore is always considered to 
be interesting. Data value 6 is therefore encoded. The 
method then proceeds to the next tree through blocks H, I, 

20 J, K and L in that order generating interesting and non- 
interesting tokens and encoding interesting data values. 
Similarly, after the second tree is terminated, low 
frequency component data value M is encoded. Data value N 
is determined to be non-interesting so a non-interesting 

25 token is sent and the encoding of the third tree is 
terminated. 

In accordance with another embodiment of the present 
invention, a two-dimensional extension of the one- 
dimensional case is used. Rather than using binary trees, 

30 four branch trees are used. However, to create a 

practical image encoding method there are also real world 
factors to take into account. Using a single data value 
to predict whether the remainder of the tree is zero, is 
unreliable when dealing with noisy image data. A small 

35 two-by-two block of data values is therefore used as the 
node element in the tree structure of the two-dimensional 
embodiment. A decision as to whether or not an edge is 
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present is based on four data values which is more 
reliable than a decision based on single data value. 

Figure 25 illustrates a tree structure representing a 
portion of the decomposition of Figure 18. The 
5 decomposition of Figure 18 may extend farther to the right 
and farther in a downward direction for larger two- 
dimensional arrays of image data values. Similarly, the 
tree structure of Figure 25 may extend farther to the 
right for larger arrays of data values. Figure 25 
10 represents a decomposition only having octave 0 and 1 high 
frequency components. In the event that the decomposition 
had additional octaves of high frequency components, the 
tree structure would extend further upward. In contrast 
to the binary tree structure of Figure 23 , the tree 
15 structure of Figure 25 is a four branch tree. The two-by- 
two block of four octave 1 data values HHHG is the root of 
a tree which extends upward in frequency to four HG two- 
by-two blocks. If another octave of decomposition were 
performed, another level of octave 2 high frequency two- 
20 by-two blocks would be inserted into the tree structure. 
Four HHHG octave 1 two-by-two blocks would, for example , 
have a single octave 2 HHHHHG block beneath them. The low 
frequency component would be denoted HHHHHH. 

Figure 2 6 is a pictorial representation of the 
25 decomposition of the tree structure of Figure 25. As 

explained above with respect to Figure 15, the actual data 
values of the various denoted blocks are distributed 
throughout the two-dimensional array of data values. The 
two numbers separated by a comma in each of the boxes of 
3 0 Figure 25 denote the row and column of a data value of the 
twordimensional array of Figure 18, respectively. Using 
this tree structure, it is possible to search through the 
transformed data values of Figure 18 encoding interesting 
two-by-two blocks of data values and ignoring non- 
3 5 interesting two-by-two blocks. 

To describe how the two dimensional encoding method 
uses the tree structure to search through a decomposition, 
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some useful definitions are introduced. First an image 
deccmp is defined with dimensions WIDTH by HEIGHT 
decomposed to number OCTS of octaves, A function Access 
is defined such that given some arguments, the function 
5 Access outputs the memory address of the specified data 
value in the wavelet decomposition decomp: 

address = Access (oct, sujb, x, y) ; 

oct is the octave of the data value sought and is an 
integer value between O {the highest octave) and. OCTS-1 

10 (the number of octaves of transformation OCTS minus one) . 
sub indicates which of the HH, HG, GH or GG bands of the 
decomposition it is that the data value sought is found. 
The use of suJb ~ HH to access the low pass data values is 
only valid when the value of oct is set to that of the 

15 lowest octave. The co-ordinates x and y indicate the 

spatial location from the top left hand corner of the sub- 
band specified by oct and sujb. The range of valid values 
of x and y are dependent on the octave being accessed, x 
has a range of {0. . . WIDTH/l*"* 1 } • y has a range of {O . 

20 . . HEIGHT /I 00 * 1 }. 

Given the function Access and a wavelet . 
decomposition, a two-by-two block of data values can be 
read by the function ReadBlock. 

block * ReadBlock (decomp, oct, sub, x, y) { 
25 MocJc[0][0] * decomp [Access (oct, sub, x, y) ) ; 

blocJc[0][l] = decompi Access {oct, sub, y) ] ; 

blocic[l][0] ■= decomp[ Access (oct, sub, x, y+I)]; 
bloc*[l][l] » decomp[ Access (oct, sub, x+l, y+1)]; 

} 

30 The wavelet decomposition is passed to the function 

ReadBlock via the variable decomp. The two-by-two block 
of data values is returned through the variable biocJc. 
Once a two-by-two block of data values is read, a 
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decision is made as to whether the two-by-two block is 
visually "interesting" and should therefore be encoded or 
whether it is not and hence should be discarded. The 
decision is made by a function called Threshold. The 
5 arguments of the function Threshold are block, oct and 
sub. Threshold returns a boolean value True if the block- 
is "interesting" and False if the block is "non- 
interesting". 

If the block is determined to be interesting by the 
10 function threshold , it is encoded using a function called 
EncodeBlock. A function SendToken inserts a token before 
the encoded block to inform a decoding device which will 
later decode the compressed data whether the block to 
follow the token has been encoded (i.e. BlockNotEmpty) or 
15 has not been encoded (i.e. BlockEmpty) . If a block is 
determined to be interesting, then a BlockNotEmpty token 
is sent, and the block is encoded; next the tree structure 
above the encoded block is ascended to better determine 
the location of the edge. The tree encoding procedure 
20 SendTree is therefore defined recursively as follows: 

SendTree (decomp, oct, sub, x, y, Q) { 

block « ReadBlock (decomp, oct, sub, x, y) ; 
If Threshold (block, oct, sub, 0) { 
SendToken (BlockNotEmpty) ; 
25 EncodeBlock (block, oct, sub, Q) ; 

If (oct >0) { 

SendTree (decomp, oct-l, sub, 2*x, 2*y, Q) ; 
SendTree (decomp, oct-l, sub, 2*(x+l), 2*y, Q) ; 
SendTree (decomp, oct-l, sub, 2*x, 2*(y+l), Q) ; 
30 SendTree (decomp, oct-l, sub, 2*(x+l), 2*(y+l), Q) ; 

> 

} else SendToken (BlockEmpty) ; 

} 



35 pass 



The procedure SendTree is only used to encode high- 
component data values. In procedure SendTree 
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(decomp, oct, sub, x, y, Q) , if the tvo-by-tvo block 
accessed by ReadBlock is determined to pass the threshold 
test, then SendTree (decomp, oct-1, sub 2*X, 2*y, Q) is 
used to test one of the next higher tvo-by-tvo blocks in 
5 the decomposition tree. 

The lov-pass data values are not considered to form 
part of the tree structure. The lov-pass data values are 
encoded using another procedure SendLPF. In addition, the 
lov-pass values are encoded using a different technique 
10 than that used in rncodeBlock, so a new procedure 
EncodeBlockLPF is required. 

SendLPF (decomp, x, y, Q) { 

block » Readblock (decomp, OCTS-1, HH, x, y) ; 
EncodeBlockLPF (block, OCTS-1, Q) ; 

15 } 

Accordingly , to encode the entire image, SendLPF is 
applied to all the block locations vithin the low pass 
band and SendTree is applied to the all the block 
locations in the HG, GH and GG bands, vithin the lovest 
20 octave. A procedure SendDecomp is therefore defined that 
encodes the entire image decomposition: 

SendDecomp (decomp, Q) { 

For (y-o; y<HEIGHT /2 OCTZ j y=y+2) 

For (x=0; X<WIDTHJ2 ocn i X=x+2) { 
25 SendLPF (decomp, x, y, 0) ; 

SendTree (decomp, OCTS-1, HG, x, y, Q) ; 
SendTree (decomp, OCTS-l, GH, x, y, Q) ; 
SendTree (decomp, OCTS-1, GG, x, y, Q) ; 

} 

30 } 

Accordingly, the above functions define a method for 
encoding vavelet decomposed images. In terms of speed of 
encoding for real-vorld images, many of the trees are 
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terminated within the initial octaves so much of the 
decomposition is not examined. Due to this termination of 
many trees in the initial octaves, many data values need 
not be encoded which results in reducing the memory 
5 bandwidth and block processing required to implement the 
compression/decompression method. Provided the functions 
Threshold, IncodeBlockLPF and Access require only simple 
calculations, the decomposed data values are rapidly 
encoded. 

10 To implement the function Access, a table containing 

all the addresses of the data values of the two- 
dimensional tree decomposition may be accessed using the 
variables x, y, sub and oct. For a small image having a 
small number of data values, this table lookup approach is 

15 reasonable. For images having, for example, approximately 
80 different values of.*, 60 different values of y, four 
different values of sub, and 3 or 4 values for oct, this 
table would contain approximately 150,000 10-bit 
locations. A less memory intensive way of determining the 

20 same X and Y addresses from the same variables is 
desirable. 

In accordance with one embodiment of the present 
invention, a function is used to determine the X and Y 
addresses from the variables x, y, sub and oct. Address 
25 X, for example, may be determined as follows: 



X - ((x « 1) + (sub » 1) ) « oct 

where << denotes one shift to the right of value x and 
where » denotes one shift to the left. 

Address Y, for example, may be determined as follows: 

30 Y - ((y << 1) + (1 & sub)) « oct 

where & denotes a bit-wise AND function. 

In a high performance system, the function Access may 
be implemented according to the following method. The 
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recursive function call and the table lookup methods 
described above are often too slew to implement in real 
time software or in hardware. Figures 27 and 28 
illustrate how the tree decomposition of Figure 25 is 
5 traversed in order to generate tokens and encode two-by- 
two blocks of data values. The X and the Y in Figures 27 
and 28 denote coordinate addresses in the two-dimensional 
matrix of Figure 18. In order to traverse the tree of the 
decomposition of Figure 25, it is necessary to be able to 
10 determine the X and Y addresses of the data values 

represented in Figure 25. Figure 27 illustrates how the X 
and Y address of a two-by-two block of data values are 
determined for those two-by-two blocks of daita values 
located in octave 0 of the decomposition of Figure 25. 
15 Similarly, Figure 28 illustrates how the X and Y addresses 
of the three two-by-two blocks of data values in octave l 
of the decomposition as well as the one two-by-tvo block 
of data values of the low pass component of the 
decomposition of Figure 25 are determined. X as well as Y 
20 are each functions of oct, TreeEoct, and sub. The values 
of sub, and sut y are determined by the ;sub-band of the two- 
by-two block of data values sought. 

Figure 29 is a chart illustrating the values of sub, 
and sub T for each sub-band of the decomposition. If, for 
25 example, a two^by-two block of data values is sought in 
the HH band, then the values of sub 2 and sub, are 0 and 0, 
respectively. The values TreeJtoot, and TreeRoot y together 
denote the particular tree of a decomposition containing 
the particular two-by-two block of the data values sought. 
3 0 In Figures 27 and 28, the rectangles represent 

digital counters. The arrows interconnecting the 
rectangles indicate a sequence of incrementing the 
counters. For example, the right most rectangle in Figure 
27, which is called counter CI, has a least significant 
3 5 bit represented in Figure 27 as bit Cl x and a most 

significant bit represented as bit Cl y . Similarly, the 
next rectangle to the left in Figure 27 represents a 
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digital counter C2 having two bits, a least significant 
bit C2 2 and a mcst significant bit C2 y . The structure of 
the X, Y address depends on the octave in which the two- 
by-two block of data values being sought resides. To 
5 generate the X, Y address in octave oct = 1, the counter 
CI is not included, the sub, and sub y bits indicating the 
sub-band bits are shifted one place to the left, and the 
least significant bits are filled with zeros. The 
incrementing of the counters in Figure 28 proceeds as 
10 illustrated by the arrows. 

To determine the X and Y addresses of the four data 
values of the low pass component HHHH of Figure 25, Figure 
28 is used. Because the two-by-two block of data values 
being sought is a two-by-two block of the low pass 
15 component, the values of sub, and sub, are 0, 0 as required 
by the table of Figure 29. The C2 counter of Figure 28 
increments through the four possible values of C2 M and C2 y 
to generate the four addresses in the two-by-two block of 
data values of the HHHH in the low pass component of 
20 Figure 25. The value of TreeRoot, and TreeRoot, are zeroes 
because this is the first tree of the decomposition. For 
subsequent trees of the decomposition, TreeRoot, and 
TreeRoot, are incremented as illustrated by the arrows in 
Figure 28 so that the X and Y addresses of the other two- 
25 by-two blocks of data values in the iow pass component of 
the tree decomposition can be determined. After this HHHH 
two-by-two block of data values is located, the four data 
values are encoded and the search through the tree 
structure proceeds to the two-by-two block of data values 
30 in octave 1 denoted HHHG in Figure 25. To determine the X 
and Y addresses of the four data values of this two-by-two 
block, the value of bits sub, and sub y are changed in 
accordance with Figure 29. Because this two-by-two block 
is in the HG sub- band, the values of sub, and sub y are 0 
35 and 1, respectively. The C2 counter is then incremented 
through its four values to generate the four addresses of 
the four data values in that block. Supposing, that this 
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two-by-two block is determined "to be "interesting" then an 
interesting token is sent, each of the four data values of 
the block are encoded, and the tree is then ascended to 
the tvo-by-tvo block of data values in octave 0 denoted 
5 HG#l. These four addresses are determined in accordance 
with Figure 27. Because the sub-band is sub-band HG, the 
values of the bits sub x and suJb y are 0 and 1, respectively. 
Counter CI is then incremented so that the four addresses 
illustrated in the tvo-by-two block octave 0 HG/1 of 
10 Figure 25 are generated. If the two-by-two block is 
interesting, then the interesting token is sent and the 
four data values are encoded. If the tvo-by-tvo block is 
determined not to be interesting, then a non-interesting 
token is sent and the four data values are not encoded. 
15 The search through the tree structure of the decomposition 
then proceeds to octave 0 block HG#2. After tha four 
addresses of the octave 0 block HG/1 are generated, the C2, 
bit of the C2 counter is incremented in accordance with 
the arrows shown in Figure 27. Accordingly, the octave 0 
20 block HG/2 is addressed when once again the CI counter 

increments through its four states. If the data values of 
this two-by-two block are determined to be "interesting", 
an interesting token is sent followed by the encoded data 
values. If the data values of the two-by-two block are 
25 determined to be non-interesting, then a non-interesting 
token is sent. After all the search of the four tvo-by- 
tvo blocks of the octave 0 HG sub-band are searched, then 
that HG tree is terminated and the search proceeds to 
determine the four addresses of the four data values of 
30 the octave 1 HHGH tvo-by-tvo block. In accordance vith 
this technique, it is possible to traverse the structure 
of the decomposition and determine the addresses of any 
tvo-by-two block in any octave or any sub-band with 
minimum overhead. Moving between consecutive addresses or 
3 5 descending trees is a simple operation when compared to 
the snaking address path used by other compression methods 
such as JPEG. 
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When implemented in software, this technique enables 
real time compression and decompression whereas other 
techniques may be too slow. If implemented in hardware, 
this technique provides for a reduced gate count and an 
5 efficient implementation. Although this example shows one 
way of traversing the tree structure of wavelet transform 
decomposition, it is possible to traverse the tree 
structure in other ways simply by changing the control 
structure represented in Figures 27 and 28 to allow for a 
10 different traversal of the tree structure. For example, 
all of the low pass HHHH blocks can be located and encoded 
first followed by all of the HHHG tree of the 
decomposition, and then all of the HHGH trees, and then 
all of the HHGG trees. 



15 QUANTIZATION 

Each data value of each two-by-two block of the tree 
decomposition which is determined to be "interesting" is 
quant i2ed and then Huffman encoded. A linear mid-step 
quantizer with double-width-0 step is used to quantize 
20 each of the data values. Figure 30 is an illustration of 
the quantization of a 10-bit twos complement data value. 
The range of the 10-bit data value to be quantized ranges 
from -512 to 511 as illustrated by the numbers above the 
horizontal line in Figure 30. This range is broken up 
25 into a plurality of steps. Figure 31 represents one such 
step of data values which extends from 128 to 256 in 
Figure 30. All incoming data values having values between 
128 and 255 inclusive are quantized by dividing the data 
value by the value qstep. Accordingly, the data value A 
30 having a value of 150 as illustrated in Figure 31 is 
divided by the qstep value 128 and results in a. q index 
number of 1. Integer division is used to generate qindex 
and the fractional part of the remainder is discarded. 
Once the qindex number is determined, the qindex number is 
35 Huffman encoded. An overall Q value is sent once per 
frame of compressed data values. The value qstep is 
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determined from the overall Q value as described below. 

To inverse quantize the qindex number and the qstep 
value to determine the value of the transformed data 
values before inverse transformation, the device decoding 
5 the incoming quantized values calculates the value of 

qstep using the value of Q according to a method described 
below. Once the value of qstep in determined, qindex for 
a given data value is multiplied by gstep. 

In the example of Figure 31, qindex value 1 times 

10 qstep 128 results in an inverse quantized value of 128. 
If this inverse quantized value of 128 were used, however, 
all the data values in the step 128 through 255 would be 
inverse quantized to the value of 128 at the left end of 
the step. This would result in unacceptably large errors, 

15 On the other hand, if all the data values in the range of 
Figure 31 were inverse quantized to the mid-step value 
191, then less error would result. Accordingly , an 
inverse quantized value gvalve can be calculated from 
qindex and qstep as follows: 



2 0 cp/alue {qindex, qstep) 



<7index»gstep-|-22|£S -ij if qindex<0 

0 if qindex^Q 

qindex* <7step^|-2£|5£ -ij if qindex>0 

The human visual system, however, has different 
sensitivities to quantization errors depending upon the 
particular sub-band containing the quantized data values. 
The human visual system performs complex non-linear 

25 processing. Although the way the human visual system 
relates image intensities to recognizable structures is 
not well understood, it is nevertheless important to take 
advantage of as much information about the human visual 
system as possible in order to maximize compression ratio 

30 versus picture quality. The wavelet transform 

approximates the initial image processing performed by the 
human brain. Factors such as spatial frequency response 
and Weber's Law can therefore be applied directly to the 
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wavelet transformed data values because the transformed 
data values are in a convenient representation. 

Figure 32 shows the sensitivity of the human eye to 
spatial frequency. Spatial frequency is measured in 
5 cycles c per visual angle 0. A screen is positioned at a 
distance d from an observer as illustrated in Figure 33. 
A light of sinusoidally varying luminance is projected 
onto the screen. The spatial frequency is the number of 
luminance cycles c per visual degree & at distance d. 

10 Note from Figure 32 that the sensitivity of the human eye 
varies with spatial frequency. Accordingly, the value of 
qstep is varied depending on the octave and sub-band of 
the data valve being quantized. The gstep at which a 
data valve is quantized is determined from the variables 

15 oct, sub and Q for that data valve as follows: 



qstep {oct,sub,Q) « Q * hvs _f actor {oct , sub) 

hvs f actor (oct. sub). l£ su * =GG l . fi-J2 if oce«l 

|l otherwise/ P- 16 occ»2 

} [0. 10 if oct*3 

The scaling factors 1.00, 0.32, 0.16 and 0.10 relate to 
the spatial frequency scale of Figure 32 to take into 
20 account the frequency dependent sensitivity of the human 
eye* 

It is to be understood that scaling factors other 
than 1.00, 0.32, 0.16 and 0.10 could be used. For 
example, other scaling factors can be used where the 

25 quantizer is used to compress audio data which is received 
by the human ear rather than by the human eye. Moreover, 
note that the sub-band GG is quantized more heavily than 
the other sub-bands because the sub-band GG contains 
diagonal information which is less important to the human 

30 eye than horizontal and vertical information. This method 
can also be extended down to the level of two-by-two 
blocks of data values to further tailor the degree of 
quantization to the human visual system. The function 
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hvs_f actor which has only two parameters in the presently 
described embodiment is only one embodiment of the present 
invention. The function hvs_f actor , for example, can take 
into account other characteristics of the human visual 
5 system ether than oct and sub, such as the luminance of 
the background and texture masking. 

THRESHOLDING 

For each new two-by-two block of data values in the 
tree decomposition, a decision must be made as to whether 
10 the block is "interesting" or "non-interesting". This can 
be done by the function threshold: 

i i 

threshold (block, limit) = limit > £ £ | block[y][x] | 

(equ. 60) 

The sum of the absolute values of the data values of the 
15 block Jbloclc is determined as is represented by the double 

summation to the right of the less than sign and this 

value is compared to a threshold value limit. 

"Interesting" blocks are those blocks, for which the sum 

of the absolute values of the four data values exceeds the 
2 0 value limit, whereas "non-interesting" blocks are those 

blocks for which the sum is less than or equal to the 

value limit. 

The value limit takes into account the variable 
quantizer step size qstep which varies with octave. For 

25 example, a two-by-two block of data values could be 
determined to pass the test threshold, but after 
quantizing by qstep could result in four zero quantized 
values. For example, all data values between -128 and 127 
are quantized to have a quantized qindex of zero as is 

30 shown in Figure 30 even if some of those data values are 
determined to correspond with an "interesting" two-by-two 
block. For this reason, the value limit is calculated 
according to the equation: 
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limit = 4+Bthreshold*qstep (equ. 61) 

In this equation "Bthreshold" is base threshold image 
factor. In the presently described example, this base 
threshold is equal to 1.0. The value of 1.0 for the base 
5 threshold Bthreshold was determined through extensive 
experimentation on test images. The factor 4 in equation 
61 is included to account for the fact that there are four 
data values in the block under consideration. In this way 
blocks are not determined to be interesting, the data 
10 values for which the quantizer will later reduce to zeros. 
This weighted threshold factor limit also reduces the 
number of operations performed in the quantizer because a 
fewer number of data values are quantized. 

HUFFMAN CODING 
15 The wavelet transform produces transformed data 

values whose statistics are vastly different from the data 
values of the original image. The transformed data values 
of the high-pass sub-bands have a probability distribution 
that is similar to an exponential or Laplacian 
20 characteristic with mean zero. 

Figure 34 shows the distribution of high pass data 
values in a four octave wavelet decomposition of the test 
image Lenna. Figure 35 shows the distribution of the data 
values of the test image Lenna before wavelet transforma- 
25 tion. The low-pass component data values have a flat 
distribution that approximates the distribution of 
luminance and chrominance values in the original image. 
The high and low pass data values are encoded differently 
for this reason. 
30 The low pass component data values are encoded by the 

function EncodeBlockLPF as follows: 

EncodeBlockLPF ( block, OCT-1, Q) { 

Output ( block [0] [0]/gstep( OCT-1, HH, Q) ) ; 
Output ( block[Q] [l]/qstep( OCT-1, HH, Q) ) ; 
35 Output ( block[ 1] [0]/gstep( OCT-1 , HH, Q)); 
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Output ( block[l)[l)/qstep( OCT-1, HH , 0));} 

After encoding, the low-pass data values are 
quantized and output into the compressed data stream. The 
low pass data values are not Huffman encoded. 
5 The high frequency component data values which pass 

the threshold test are quantized and Huffman encoded to 
take advantage of their Laplacian distribution. Function 
EncodeBlock performs the quantization and the Huffman 
encoding for each of the four data values of an 

10 interesting high frequency component block bloc*. In the 
function EncodeBlock, the variable sub is provided so that 
when function gstep is called, different quantization 
qstep values can be used for different high frequency 
component sub-bands. The function huff man performs a 

15 table lookup to a fixed Huffman code table such as the 
table of Table 3. The function TncodefllocJc is defined as 
follows: 



EncodeBlock (block, oct, sub, Q) { 

Output (hu ff man (block[Q) [0] /qstep(oct, sub, 0))); 

20 Output (huff man (block [0] [1] /qstep (oct, sub, 0))); 

Output (huff man (blocJc[l] [0] /qstep (oct, sub, Q) ) ) ; 

Output (hu/fman (bloc*[l] [1] /gstep(oct, sub, Q) ) ) ; 
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10 



15 



aindex 


Huffman code 


-38 . . . -512 


1100000011111111 


-22 . . -37 


1 1 0 0 0 0 0 0 1 1 1 1 (\qindex\ -22) 


-7 . . -21 


11000000 (\qlndex\ -7) 


-6 


11000001 


• 

* 


• 
• 
• 


-2 


110 1 


-1 


111 


0 


0 


1 


10 1 


2 


10 0 1 


« 
• 
• 


• 
• 

* 


6 


10000001 


7 . . 21 


10000000 (\q±fidmx\ -7) 


22 . . 37 


100000001111 (\q±ndmx\ -22) 


38 . • 511 


1000000011111111 



Table 3 

The second bit from the left in the Huffman code of 
Table 3 is a sign bit. The value \qindex\-7 is 
represented with 4 bits in the case 7 < \qindex\< 21. The 
25 value |gindex|-22 is represented with 4 bits in the case 
22 <|ginde*i< 37) . 

ENCODING OF TOKENS 
At high compression ratios the number of bits in the 
compressed data stream used by tokens may be reduced by 
30 amalgamating groups of "non-interesting" tokens. This can 
be achieved by introducing new tokens. In accordance with 
one embodiment of the present invention, two new tokens, 
OctEmpty and OctNotEmpty are used. For a high pass 
component block in a tree above octave zero, there are 
35 four branches. The additional pair of tokens indicate 
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whether all four are non-interesting. if all four are 
non-interesting, only a single OctEmpty token need be 
sent. Otherwise, an OctNotEmpty token is generated before 
the four branches are encoded. The particular token 
5 scheme described above was selected more to simplify the 
hardware and software implementations than it was to 
achieve in the best compression ratio possible. Other 
methods of representing relatively long sequences of token 
bits in the compressed data stream using other tokens 
10 having a relatively fever number of bits may be used in 
place of the tokens OctEmpty and OctNotEmpty to achieve 
higher compression ratios. 

VIDEO ENCODING AND DECODING 
In comparison with the coding of a still image, the 
15 successive images of a video sequence typically contain 
much redundant information. The redundancy of this 
information is used to reduce the bit rate. If a location 
in a new frame of the video contains the same or 
substantially the same information as a corresponding 
20 location in the previous old frame of video, that portion 
of the new frame need not be encoded and introduced into 
the compressed data. This results in a reduction in the 
total number of bits in the encoded bit stream. 

Figure 36 illustrates a video encoder 31 and a video 
25 decoder 32. A video input signal is transformed by a 

forward wavelet transform block 33, the output of which is 
written to a new frame store 34. The first frame of video 
information in the new frame store 34 is referred to as 
the new frame because no previous frame exists in the old 
30 frame store 35 for containing an old frame. A comparison 
tree encoder 36 therefore generates tokens and transformed 
data values as described above from the data values output 
from new frame store 34. The transformed data values are 
quantized by quantizer 37 into qindex levels. These 
35 qindex levels are then Huffman coded by the Huffman 

encoder 38. The resulting encoded data values are then 
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combined with the tokens in buffer 38A to form a 
decompressed data bit stream 39. 

An essential part of this method is that the old 
frame present in the video encoder 31 is exactly the same 
5 as the old frame 40 present in the video decoder 32. This 
allows the decoder 32 to be able to correctly decode the 
encoded bit stream 39 due to the fact that the encoded bit 
stream contains differences between new and old images and 
due to the fact that parts of the new frame are not sent 
10 due to compression. An inverse quantizer 41 is therefore 
provided in the video encoder 31 to inverse quantize the 
qindex levels and to store the old frame as sent into old 
frame store 35 for future comparison with the next frame 
of the video input signal, 
15 In the video decoder 32 , the compressed data stream 

3 9 is received by a buffer 42. The tokens are separated 
from the Huffman encoded qindex levels. The Huffman 
encoded qindex levels are supplied to a Huffman decoder 
43, the output of which is supplied to an inverse 
20 quantizer 44. The output of the inverse quantizer 44 is 
written into old frame store 4 0 under the control of the 
comparison tree decoder 45. Comparison tree decoder 45 
determines what is written into the old frame store 40, 
depending in part on the tokens received from buffer 42. 
25 Once a new frame of transformed data values is present in 
old frame store 40, an inverse wavelet transform 46 
inverse transforms that frame of transformed data values 
into a corresponding video output signal. To prevent the 
inverse wavelet transform 46 from overwriting and 
30 therefore corrupting the contents of old frame store 40 
when it reconstructs data values corresponding to the 
original new frame data values, an intermediate frame 
store 47 is maintained. 

The octave one HHHG, HHGH, HHGG, and HHHH from Figure 
3 5 25 are read from the old frame store 40 by the inverse 
wavelet transform 46 to perform the octave 1 inverse 
transform as described above. However, the resulting 
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octave 0 HH sub-band, output from the inverse wavelet 
tranform 46 is now written to the intermediate frame store 
47, so as not to corrupt the old frame store 40. For the 
octave 0 inverse wavelet transform, the HG, GH, and GG 
5 sub-bands are read from the old frame store 40 , and the HH 
sub-band is read from the intermediate frame store 47, to 
complete the inverse wavelet transform. 

When the second frame of compressed video data 3 9 is 
received by the video decoder 32, the tokens received by 
10 the comparison tree decoder 45 are related to the contents 
of the previous frame of video information contained in 
old frame store 4 0. Accordingly, the video decoder 3 2 can 
reconstruct the latest frame of video data using the 
contents of the frame store 40 and the data values encoded 
IS in the compressed data stream 39. This is possible 
because the compressed data stream contains all the 
information necessary for the video decoder 32 to follow 
the same traversal of the tree of the decomposition that 
the encoder used to traverse the tree in the generation of 
20 the compressed data stream. The video decoder 32 

therefore works in lock step with the video encoder 31. 
Both the encoder 31 and the decoder 32 maintain the same 
mode at a corresponding location in the tree. When the 
encoder 31 determines a new mode, it incorporates into the 
25 compressed data stream 39 a corresponding token, which the 
video decoder 3 2 uses to assume that new mode. 

Figure 37 illustrates the modes of operation of one 
possible embodiment of the present invention. To explain 
the operation of the video encoder 31 and the video 
30 decoder 32, an example is provided. The initial frame of 
the video sequence is processed by the video encoder 31 in 
still mode. Still mode has three sub-modes: STILL, 
VOID_STILL, and LPF_STILL. The low pass two-by-two blocks 
of data values of the decomposition cause the comparison 
3 5 tree encoder 3 6 of video encoder 31 to enter the LPF_STILL 
sub-mode. In this sub-mode, the four data values of the 
two-by-two block are quantized but are not Huffman 
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encoded. Similarly, no token is generated. The 
successive lew pass component two-by-two blocks of data 
values are successively quantized and output into the 
compressed data stream 39. 
5 Next, the lowest frequency octave of one of the sub- 

bands is processed by the comparison tree encoder 36. 
This two-by-two block of data values corresponds with 
block HHHG illustrated in Figure 25. The four data values 
of this two-by-two block are tested against the threshold 
10 limit to determine if it is "interesting". If the 

two-by-two block HHHG is interesting, then a single bit 
token 1 is generated, as illustrated in Figure 37, the 
mode of the comparison tree encoder remains in STILL mode, 
and the four data values of the two-by-two block HHHG are 
15 successively quantized and encoded and output into the 
compressed data stream 39. 

For the purposes of this example, block HHHG is 
assumed to be interesting. The tree structure of Figure 
25 is therefore ascended to octave 0 two-by-two block 
20 HG#1. Because the comparison tree encoder 31 remains in 
the STILL mode, this block is encoded in the STILL mode. 
The four data values of block HG#l are tested to determine 
whether or not they are interesting. This sequence of 
testing the successive blocks of the tree structure is 
25 repeated as described above. 

After the traversal of the four octave 0 sub-blocks 
HG/1, HG#2, HG/3 and HG#4, the comparison tree encoder 3 6 
proceeds in the tree structure to the two-by-two block of 
data values in octave 1, block HHCH. For purposes of this 
30 example, this two-by-two is non-interesting. After the 
comparison tree encoder 3 6 reads the four data values t the 
result of the threshold test indicates a non-interesting 
two-by-two block. As illustrated in Figure 37, the 
encoder 31 which is in the still mode now generates a 
35 single bit token 0 and the comparison tree encoder 3 6 
enters the VOID_STILL sub-mode. Although no additional 
information is output into the compressed data stream 39, 
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the comparison tree encoder 36 proceeds to write 0*s into 
the four locations of the tvo-by-two block HHGH, as well 
as all the locations of the two-by-two blocks in the tree 
above the non-interesting two-by-two block HHGH. In the 
5 example of Figure 25, the comparison tree encoder 36 
writes O's into all the addresses of blocks HHGH, GH/1, 
GH#2, GH#3 and GH#4 . This 2eroing is performed because 
the video decoder 32 will not be receiving the data values 
corresponding to that tree. Rather, the video decoder 32 
10 will be receiving only a non-interesting token, a single 
bit 0. The video decoder 32 will therefore write zeros 
into frame store 4 0 in the remainder of the corresponding 
tree. In order to make sure that both the video encoder 
31 and the video decoder 32 have exactly the same old 
15 frame 3 5 and 40, the video encoder too must zero out those 
non-interesting blocks. 

After the first frame of video data has been encoded 
and sent in STILL mode, the next frame of video data is 
processed by the video encoder 31. By default, the 
20 encoder now enters SEND mode. For lowpass frequency 

component two-by-two blocks, the video encoder 31 enters 
the LPF_SEND mode as illustrated in Figure 37. The 
encoding of such a lowpass component two-by-tvo block 
corresponds with the encoding of two-by-two block HHHH in 

2 5 Figure 25. However, now the comparison tree encoder 3 6 

has both a new frame in frame store 34 as well as an old 
frame in frame store 35. Accordingly, the comparison tree 
encoder 36 determines the arithmetic difference of the 
respective four data values in the new frame from the four 

3 0 data values in the old frame at the corresponding position 

and compares the sum of those differences with a compare 
threshold. The compare threshold, compare f is calculated 
from a base compare threshold "Bcompare" as in the case of 
the previous threshold which determines which blocks are 
35 interesting, similar to equations 60 and 61. If the sum 
of the differences is less than the compare threshold, 
then the video encoder 31 sends a single bit token 0 and 
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remains in the LPF_SEND mode, as illustrated in Figure 37. 
The video encoder 31 does not transmit any data values 
corresponding to the lovpass frequency component 
two-by-tvo block. 
5 If , on the other hand, the sum of the arithmetic 

differences exceeds the compare threshold, then a single 
bit token 1 is generated, as illustrated in Figure 37. in 
this case, the video encoder 31 sends the arithmetic 
differences of each of the successive four data values of 
10 the new frame versus the old frame to the quantizer 37 and 
then to the Huffman encoder 38. The arithmetic 
differences are encoded and sent rather than sending the 
actual data values because this results in fever bits due 
to the fact that the two blocks in the new and old frames 
15 are quite similar under normal circumstances. 

When the video encoder 31 proceeds to encode the 
octave 1 sub-band HHHG, as illustrated in Figure 25, the 
video encoder 31 enters the SEND mode, as illustrated in 
Figure 37. In this mode, the comparison tree encoder 3 6 
2 0 compares the data values of the new two-by-two block with 
the data values of the old tvo-by-two block and performs a 
series of arithmetic operations to generate a series of 
flags, as illustrated in Figure 38. Based on these flags, 
the video encoder 31 generates a 2 -bit token and enters 
2 5 one of four new modes for that two-by-two block. If, for 
example, the two-by-two block HHHG in Figure 25 is 
received by the video encoder 31, then flags ozflag,. 
nzflag, newjz, not lag t motion, origin, and nojz are 
determined. The values of these flags are determined as: 



i i 

30 nz = £ E |new[x][y] | (equ. 62) 

jr-0 y»0 
1 1 

n° - EE l new f*Hy]~ old[x][y]| (equ. 63) 

jr-0 y»o 

1 1 

oz = EEl old t x Hy]| (equ. 64) 
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nzflag = nz < limit (equ< H) 

noflag no < compare (egu< 66) 

origin = nz < no (equ> 67) 

motion = ( (nz + oz) « oct) < no (egu. 68) 

5 new_z = |new[xj[y]| <qstep , 0 < x, y, < i (eq u. 69) 
no_z = |n«w[x][y] - old [x][y]|< qstep, 0<x,y<l (equ. 70) 

ozflag = {old(x][y] = 0; for all o sx, y<i) (e qu. 71) 

Based on the values of these flags, the new mode for 
10 the two-by-two block HKHG is determined, from Figure 38. 
If the new mode is determined to be the SEND mode, 
the 2-bit token 11 is sent as indicated in Figure 37. The 
arithmetic differences of the corresponding four data 
values are determined, quantized, Huffman encoded, and 
15 sent into the compressed data stream 39. 

In the case that the flags indicate the new mode is 
STILL_SEND, then the 2-bit token 01 is sent and the new 
four data values of the two-by-two block are quantized, 
Huffman encoded, and sent. Once having entered the 
20 STILL_SEND mode, the video encoder 31 remains in the 
STILL_SEND mode until the end of the tree has been 
reached. In this STILL_SEND mode, a single bit token of 
either 1 or 0 precedes the encoding of each block of data 
values, when the VOID mode is entered from STILL_SEND 
25 mode, the video encoder 31 generates a single bit 0 token, 
then places zeros in the corresponding addresses for that 
two-by-two block, and then proceeds to place zeros in the 
addresses of data values of the two-by-two blocks in the 
tree above. 

30 In the event that the flags indicate that the video 

encoder 31 enters the VOID mode from SEND mode, a 2-bit 
token 10 is generated and the four data values of that 
two-by-two block are replaced with zeros. The VOID mode 
also results in the video encoder 31 placing zeros in all 

35 addresses of all data values of two-by-two blocks in the 
tree above. 

In the case that the flags indicate that there is no 
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additional information in the tree being presently 
encoded, namely, the new and the old trees are 
substantially the* same, then a 2-bit token of 00 is 
generated and the video encoder 31 proceeds to the next 
5 tree in the decomposition. 

In general, when the video encoder 31 enters VOID 
mode, the video encoder will remain in VOID mode until it 
determines that the old block already contains four zero 
data values. In this case, there is no reason to continue 
10 in VOID mode writing 2eros into that two-by-two block or 
the remainder of the blocks in the tree above because it 
is guaranteed that the old tree already contains zeros in 
these blocks. This is true because the old tree in frame 
store 35 has previously been encoded through the inverse 
IS quantizer 41. 

Because the video decoder 32 is aware of the tree 
structure of the decomposition, and because the video 
encoder 31 communicates with the video decoder 32 using 
tokens, the video decoder 32 is directed through the tree 
20 structure in the same manner that the video encoder 31 
traverses the tree structure in generating the compressed 
data stream 39. In this way the video decoder 32 writes 
the appropriate data values from the decompressed data 
stream 39 into the corresponding positions of the old data 
25 frame 40. The only flag needed by the video decoder 32 is 
the ozflag t which the video decoder obtains by reading the 
contents of old frame store 4 0. 

RATE CONTROL 
All transmission media and storage media have a 
3 0 maximum bandwidth at which they can accept data. This 
bandwidth can be denoted in terms of bits per second. A 
standard rate ISDN channel digital telephone line has, for 
example, a bandwidth of 64 kbits/sec. When compressing a 
sequence of images in a video sequence, depending upon the 
3 5 amount of compression used to compress the images, there 
may be a relatively high number of bits per second 
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generated. This number of bits per second may in some 
instances exceed the maximum bandwidth of the transmission 
media or storage device. It is therefore necessary to 
reduce the bits per second generated to insure that the 
5 maximum bandwidth of the transmission media or storage 
device is net exceeded. 

One way of regulating the number of bits per second 
introduced into the transmission media or storage device 
involves the use of a buffer. Frames having a high number 
10 of bits are stored in the frame buffer, along with frames 
having a low number of bits, whereas the number of bits 
per second passing out of the buffer and into the 
transmission media or storage device is maintained at a 
relatively constant number. If the buffer is sufficiently 
15 large, then it is possible to always achieve the desired 
bit rate as long as the overall average of bits per second 
being input into the buffer over time is the same or less 
than the maximum bit rate being output from the buffer to 
the transmission media or storage device. 
2 0 There is, however, a problem associated with large 

buffers in video telephony. For a large buffer, there is 
a significant time delay between the time a frame of video' 
data is input into the buffer and time when this frame is 
output from the video buffer and into the transmission 
25 media or storage device. In the case of video telephony, 
large buffers may result in large time delays between the 
time when one user begins to speak and the time when 
another user begins to hear that speech. This time delay, 
called latency, is undesirable. For this reason, buffer 
30 size is specified in the standard H.261 for video 
telephony. 

In accordance with one embodiment of the present 
invention, a rate control mechanism is provided which 
varies the number of bits generated per frame, on a frame 
35 by frame basis. Due to the tree encoding structure 
described above, the number of bits output for a given 
frame is dependent upon the number of trees ascended in 
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the tree encoding process. The decisions of whether or 
not to ascend a tree are made in the lowest high frequency 
octaves of the tree structure. As can be seen from Figure 
25, there are relatively few number of blocks in the 
5 lowest frequency of the sub-bands, as compared to the 
number of blocks higher up in the sub-band trees. Given a 
particular two-by-two block in the tree structure, it is 
possible to decrease the value of Q in the equation for 
the threshold limit until that particular block is 

10 determined to be "interesting". Accordingly, a particular 
Q is determined at which that particular block becomes 
interesting. This process can be done for each block in 
the lowest frequency HG, GH and GG sub-bands- In this 
way, a histogram is generated indicating a number of 

15 two-by-two blocks in the lowest frequency of the three 
sub-bands which become interesting at each particular 
value of Q. 

From this histogram, a relationship is developed of 
the total number of two-by-two blocks in the lowest 
20 frequency of the three sub- bands which are interesting for 
a given value of 0. Assuming that the number of blocks in 
the lowest frequency octave of the three sub-bands which 
are interesting for a given value of 0 is representative 
of the number of bits which will be generated when the 
25 tree is ascended using that given value of Q, it is 

possible to determine the value of 0 at which a desired 
number of bits will be generated when that frame is coded 
with that value of Q. Furthermore, the greater the 
threshold is exceeded, the more bits may be needed to 
30 encode that tree. It is therefore possible to weight by Q 
the number of blocks which are interesting for a given 
value of Q. Finally, the Q values so derived should be 
averaged between frames to smooth out fluctuations. 

The encoder model RM8 of the CCITT Recommendation 
35 H.261 is based on the DCT and has the following 

disadvantages. The rate control method used by RM8 is a 
linear feedback technique. Buffer fullness is 
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proportional to Q. The value of Q must be adjusted after 
every group of blocks (GOB) to avoid overflow or underflow 
effects. This means that parts of the image are 
transmitted at a different level quality from other parts. 
5 During parts of the image where little change occurs, Q 
drops which can result in uninteresting areas being coded 
very accurately. The objects of interest are, however, 
usually the moving ones. Conversely, during the coding of 
areas of high activity, Q rises creating large errors in 

10 moving areas. When this is combined with a block based 
transform, the errors can become visually annoying. 

The method of rate control described in connection 
with one embodiment of the present invention uses one 
value of Q for the whole frame. The value of Q is only 

15 adjusted between frames. All parts of an image are 
therefore encoded with the same value of Q. Moreover, 
because the tree structure allows a relatively few number 
of blocks to be tested to determine an estimate of the 
number of bits generated for a given frame, more 

2 0 intelligent methods of varying Q to achieve an overall 
desired bit rate are possible than are possible with 
conventional compression/decompression techniques. 

TREE BASED MOTION ESTIMATION 
Figure 3 9 represents a black box 1 on a white 

25 background 2. Figure 40 represents the same black box 1 
on the same white background 2 moved to the right so that 
it occupies a different location. If these two frames of 
Figures 39 and 4 0 are encoded according to the above 
described method, there will be a tree in the wavelet 

30 decomposition which corresponds with the white-to-black 
edge denoted 3 in Figure 39. Similarly, there will be 
another tree in the wavelet decomposition of the image of 
Figure 4 0 which represents the white-to-black edge 3' the 
wavelet decomposition of the image of Figure 40. All of 

3 5 the data values corresponding to these two trees will be 
determined to be "interesting" because edges result in 
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interesting data values in all octaves of the 
decomposition. Moreover, due to the movement of the 
corresponding edge of black box 1, all the data values of 
the edges of both of these two trees will be encoded as 
5 interesting data values in the resulting compressed data 
stream. The method described above therefore does not 
take into account that it is the same data values 
representing the same white-to-black edge which is present 
in both images but which is just located at a different 
10 location. 

Figure 41 is,.*a one dimensional representation of an 
edge. The corresponding low path component data values 
are not illustrated in Figure 41. Data values 4, 5, 6, 7, 
8, and 9 represent the "interesting" data values of Figure 
15 41 whereas the other data values have low data values 
which makes those blocks "non-interesting", in the 
representation of Figure 41, data values 4 and 5 are 
considered a single two data value block. Similarly, 
blocks 6 and 7 are considered a single block and blocks 8 
20 and 9 are considered a single block. Figure 41, although 
it is a one dimensional representation for ease of 
illustration, represents the edge 3 of the frame of 
Figure 39. 

Figure 42 represents the edge 3 ( shown in Figure 40. 

25 Figure 42 indicates that the edge of black box l has moved 
in location due to the fact that the values 19 and 21 
which in Figure 41 were in the two data value block 8 and 
9 are located in Figure 42 in the two data value block 10 
and 11. In the encoding of Figure 42, rather than 

30 encoding and sending into the compressed data stream the 
values 19 and 21, a control code is generated which 
indicates the new locations of the two values. Although 
numerous control codes are possible, only one embodiment 
is described here. 

35 When the two data value block 10 and 11 is tested to 

determine whether it is interesting or not, the block 
tests to be interesting. The neighboring blocks in the 
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old frame are, however, also tested to determine whether 
the same values are present. In this case, the values 19 
and 21 are determined to have moved one two data value 
block to the right. An "interesting with motion" token is 
5 therefore generated rather than a simple "interesting" 
token. A single bit 1 is then sent indicating that the 
edge represented by values 19 and 21 has moved to the 
right. Had the edge moved to the left, a control code of 
0 would have been sent indicating that the edge 
10 represented by values 19 and 21 moved one location to the 
left. Accordingly, in the encoding of Figure 42, an 
"interesting with motion" token is generated followed by a 
single control code 1. The interesting values 19 and 21 
therefore need not be included in the compressed data 
IS stream. The video decoder receiving this "interesting 
with motion" token and this control code l can simply copy 
the interesting values 19 and 21 from the old frame into 
the indicated new location for these values in the new 
frame obviating the need for the video encoder to encode 
20 and transmit the actual interesting data values 

themselves. The same token and control codes can be sent 
for the two data values corresponding to a block in. any 
one of the octaves 0, 1 or 2. 

Figure 4 3 represents the motion of the edge 3 of 
25 Figure 39 to a new location which is farther removed than 
is the new location of black box l shown in Figure 40. 
Accordingly, it is seen that the values 20 and 21 are 
located to the right at the two data value block 12 and 
13. In the encoding of this two data value block 12 and 
3 0 13 a token indicating "interesting with motion" is 
generated. Following that token, a control code 1 is 
generated indicating motion to the right. The video 
encoder therefore need not encode the data values 20 and 
21 but merely needs to generate the interesting with 
3 5 motion token followed by the motion to the right control 
code. When the video encoder proceeds to the two data 
values block 14 and 15, the video encoder need not send 
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the "interesting with motion" token but rather only sends 
the left control code 0. Similarly, when the video 
encoder proceeds to encode the two data value block 16 and 
17, the video encoder only sends the left control code 0. 
5 The control codes for octaves 0 and 1 do not denote motion 
per se but rather denote left or right location above a 
lower frequency interesting block of the moving edge. 
This results in the video encoder not having to encode any 
of the actual data values representing the moved edge in 
10 the decomposition of Figure 43. 

The one dimensional illustration of Figures 41, 42 
and 43 is presented for ease of illustration and 
explanation. It is to be understood, however, that this 
method of indicating edge motion is used in conjunction 
IS with the above described two dimensional wavelet 
decomposition such as the two dimensional wavelet 
decomposition illustrated in Figure 25. The video encoder 
searches for movement of the data values representing an 
edge only by searching the nearest neighboring blocks of 
20 data values in the old frame. This method can be used to 
search many neighbors or a few neighbors depending on the 
application. The counter scheme described in connection 
with Figures 27 and 28 can be used to determine the 
locations of those neighboring blocks. Although the edge 
25 motion illustrated in connection with Figures 41, 42, and 
4 3 shows the very same data values being moved in the tree 
structure of the decomposition, it is to be understood 
that in practice the values of the data values 
representing the same edge may change slightly with the 
30 movement of the edge. The video encoder takes this into 
account by judging corresponding data values using a 
motion data value threshold to determine if corresponding 
data values in fact do represent the same edge. By 
indicating edge motion and not sending the edge data 
3 5 values themselves it is possible to both increase the 
compression and also improve the quality of the 
decompressed image . 
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SIX COEFFICIENT QUASI -DAUBECHIES FILTERS 
The Daubechies six coefficient filters are defined by the 
six low pass filter coefficients, listed in the table, 
below to 8 decimal places. The coefficients are also 
5 defined in terns of four constants, a, 0, y and c, where a 
= 0.10588942, /3 = -0.54609641, y = 2.4254972 



and t 


l = 3.0059769. 










Daubechiee 
coefficients 


Alternative 
representation 


Normalized 
coefficients 


Converted 
Coefficients 


a 


0.33267055 




0.2352336 


30 
128 


b 


0. 80689151 




0.57055846 


73 
128 


c 


0.45987750 


-0(a+7)/e 


0.3251825 


41 | 
128 | 


-d 


-0.13501102 


0(1 - ay)/e 


-0.095467208 


-12 
128 


-e 


-0. 08544127 


-ay/e 


-0. 060416101 


-7 
128 


f 


0.03522629 


a/€ 


0. 024908749 


3 
128 



Table 4 

15 The coefficients (a, b, c, -d, -e, f) sua to . The 
normalized coefficients sun to 1, which gives the filter 
the property of unity gain, which in terms of the 
alternative representation is equivalent to a change in 
the value of e to 4.2510934. These values can be 

20 approximated to any given precision by a set of fractions. 
In the example shown above, each of the normalized values 
has been multiplied by 128 and rounded appropriately, thus 
the coefficient a has been converted to -2iL . Filtering 

126 ^ 
is therefore possible using integer multiplications rather 

25 than floating point arithmetic. This greatly reduces 
implementation cost in terms of digital hardware gate 
count and computer software speed. The following 
equations show a single step in the filtering process, the 
outputs H and G being the low and high pass outputs, 

30 respectively: 

H 1 =aD 0 +bD 1 +cD 2 -dD 3 -eD 4 +fD 5 (equ. 72) 
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G l =»-fD 0 -eD l +dD 2 +cD 3 -bD 4 +aD a (equ. 73) 

H, and G x are calculated as follows. Each data value D 
is multiplied by the relevant integer numerator (30, 73, 
41, 12, 7, 3) and summed as shown. The values of H and G 
5 are found by dividing the summations by the constant 128. 
Because 128 is an integer power of 2, the division 
operation requires little digital hardware to implement and 
only simple arithmetic shift operations to implement in 
software. The filters H and G are quasi-perfect 
10 reconstruction filters: 

a+b+c-d-e+f=l (equ. 74) 

-f-e+d+c-b+a=0 (equ. 75) 

a+c-eo-i (equ. 76) 

f-d+b=-| (equ. 77) 

15 Equation 74 guarantees unity gain. Equation 75 

guarantees that the high pass filter will generate zero for 
a constant input signal* Equations 76 and 77 guarantee 
that an original signal once transferred can be 
reconstructed exactly. 
2 0 The following equations show a single step in the 

inverse transformation: 

D 2 -2(-eH o -bG 0 +cH l +dG,+aH 3 -fGj) (equ. 78) 

D 3 »2 (fHo+aGo-dHj+cGj+bHi-eG^) (equ. 79) 

As for the forward filtering process, the interleaved 
25 H and G data stream is multiplied by the relevant integer 
numerator and summed as shown. The output D data values 
are found by dividing the summations by the constant 64, 
which is also an integer power of 2. 

To calculate the first and last H and G values, the 
30 filter equations must be altered such that values outside 
the boundaries of the data stream are not required. For 
example, if H 0 is to be calcualted using the six coefficient 
filter, the values D., and D. 2 would be required. Because 
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these values are not defined, a different filter is used at 
the beginning and end of the data stream. The new filters 
are determined such that the reconstruction process for the 
first and last two data values is possible. The following 
5 pair of equations show the filter used to calculate the 
first H and G values: 

H^cDo-dD.-eDj+fD, ( equ . 80) 

G 0 =dD 0 +cD,-bD J +aD, ( equ . 81) 

The last H and G values are calculated with: 
10 H,=aD,+bD,+cD A -dD B ( equ . 82) 

G5-fD,-eD,+dD x +cD B (equ. 83) 

In this case, these equations are equivalent to using 
the non-boundary equations with data values outside the 
data stream being equal to zero. The following inverse 
15 transform boundary filters are used to reconstruct the 
first two and last two data values: 

D 0 >2( (c-|)fl' 0 *(d*^)G > 0 ^ l -/G l ) (equ. 84) 

D^2{{±~d) H^^c-^G^bH^eG^) (equ. 85) 

D A °2 (-e/f 4 -2><? 4 *(c--^)^*(d-^)G s ) (equ. 86) 

Dg^ifHt+aGt-ld+^Hs+ic^G,) (equ. 87) 



INCREASING SOFTWARE DECOMPRESSION SPEED 
A system is desired for compressing and decompressing 
video using dedicated digital hardware to compress and 
20 using software to decompress. For example, in a video mail 
application one user uses a hardware compression expansion 
card for an IBM PC personal computer coupled to a video 
camera to record a video message in the. form of a video 
message file. This compressed video message file is then 
2 5 transmitted via electronic mail over a network such as a 
hardwired network of an office building. A recipient user 
receives the compressed video message file as he/she would 
receive a normal mail file and then uses the software to 
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decompress the compressed video message file to retrieve 
the video mail. The video mail may be displayed on the 
monitor of the recipient's personal computer. It is 
desirable to be able to decompress in software because 
5 decompressing in software frees multiple recipients from 
purchasing relatively expensive hardware. Software for 
performing the decompression may, for example, be 
distributed free of charge to reduce the cost of the 
composite system. 
10 In one prior art system, the Intel Indeo video 

compression system, a hardware compression expansion card 
compresses video and a software package is usable to 
decompress the compressed video. This system, however, 
only achieves a small compression ratio. Accordingly, 
15 video picture quality will not be able to be improved as 
standard personal computers increase in computing power 
and/ or video bandwidth. 

The specification above discloses a method and 
apparatus for compressing and decompressing video. The 
20 software decompression implementation written in the 
programming language C disclosed in Appendix A only 
decompresses at a few frames per second on a standard 
personal computer at the present date. A method capable of 
implementation in software which realizes faster 
25 decompression is therefore desirable. 

A method for decompressing video described above is 
therefore modified to increase software execution speed. 
Although the b=19/32, a-11/32, c-5/32 and d«3/32 
coefficients used to realize the high and low pass forward 
3 0 transform perfect reconstruction digital filters are used 
by dedicated hardware to compress in accordance with an 
above described method, the coefficients b=5/8, a=3/8, 
c-1/8 and d=l/8 are used to decompress in software on a 
digital computer. The coefficients are determined as shown 
35 in the table below. 
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* = * -3415 (8) = 2.732 = 1 

8 

b = = .5915(8) = 4.732 = I 

c ' —f 2 - * -1585 (8) - 1.268 = 1 



d = = -0915 (8) = 0.732 - 1 



8 
1 

I 



8 

Table 5 

An even start inverse transform digital filter in 
accordance with the present embodiment is: 



Do - 4[(b-a)Ho + (c-d)Go) (egu. 88) 

where, for example, D„ is a first inverse transformed data 
10 value indicative of a corresponding first data value of a 

row of the original image, and where Ho and G 0 are first low 

and high pass component transformed data values of a row of 

a sub-band decomposition. 

An odd end inverse transform digital filter in 
IS accordance with the present embodiment is: 

D, = 4[(c+d)H, - (a+b)G 3 ] ( equ . 89 ) 

where, for example, D B is a last inverse transformed data 
value indicative of a corresponding last data value of a 
row of the original image, and where H, and G, are last low 
20 and high pass component transformed data values of a row of 
a sub-band decomposition. 

An odd interleaved inverse transform digital filter in 
accordance with the present embodiment is: 

£i2|lli = |H(x-l)-|C(x-l) + 2H(x) + lC(x) (equ. 90) 

25 An even interleaved inverse transform digital filter 

in accordance with the present embodiment is: 

°ifil = -jH<x-l) + jG(x-l) + iH<x) + 2G(x) (equ. 91, 

As indicated by equations 90 and 91, the odd and even 
• interleaved inverse transform digital filters operable on 
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the same H and G values of the sub-band decomposition but 
generate the odd and even inverse transformed data values 
in a row between the even start and odd end filters of 
equations 88 and 89. 
5 Using the above even start, odd end, odd interleaved 

and even interleaved inverse transform digital filters, a 
frame rate of approximately 15 frames/second is realizable 
executing on a Macintosh Quadra personal computer having a 
68040 microprocessor. Digital filters using the 
10 coefficients b=5/8, a»3/8, c=l/8 and d«l/8 may also be 
realized in dedicated digital hardware to reduce the cost 
of a dedicated hardware implementation where a slightly 
lower compression ratio is acceptable. 

To further increase software decompression speed when 
15 decompressing video on a digital computer, only two octaves 
of inverse transform are performed on video which was 
previously compressed using three octaves of forward 
transform. This results in the low pass component of the 
octave 0 decomposition. The low pass component of the 
20 octave 0 decomposition is a non-aliased high quality 
quarter size decimated version of the original image. 
Rather than performing octave 0 of inverse transform, 
horizontal linear interpolation is used to expand each row 
of data values of the low pass component of the octave 0 
25 decomposition into twice the number of data values. To 
expand the number of rows, each row of interpolated data 
values is replicated once so that the total number of rows 
is doubled. In some embodiments, interpolation techniques 
other than linear interpolation are used to improve image 
30 quality. For example, spline interpolation or polynomial 
interpolation may be used. 

To further increase software execution speed when 
decompressing video, luminance data values are decompressed 
using the digital filters of equations 88, 89, 90 and 91. 
35 The chrominance data values, on the other hand, are 

decompressed using even and odd interleaved reconstruction 
filters having a fewer number of coefficients than four. 
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In one embodiments, two coefficient odd interleaved Haar 
and even interleaved Haar filters are used. The even 
interleaved Haar reconstruction filter is: 

D 0 = (H 0 + G 0 ) (ecfu. 92) 

5 The odd interleaved Haar reconstruction filter is: 

Di = (Ho - G 0 ) (equ. 93) 

Because the above Haar filters each only have two 
coefficients, there is no boundary problem as is addressed 
in connection with an above-described method. Accordingly, 

10 another start inverse transform digital filter and another 
end inverse transform digital filter are not used. 

To increase software execution speed still further 
when decompressing video, variable-length SEND and 
STILL_SEND tokens are used. Data values are encoded using 

15 a Huffman code as disclosed above whereas tokens are 
generated in variable-length form and appear in this 
variable-length form in the compressed data strean. This 
allows decompression to be performed without first 
calculating flags. 

20 Figure 44 shows variable-length tokens used for 

encoding and decoding in accordance with some embodiments 
of the present invention. Because transitions from SEND 
mode to STOP mode or from STILL_SEND mode to STOP mode 
occur most frequently of the transitions indicated in 
25 Figure 44, the corresponding tokens consist of only one 
bit. 

In general, if an area changes from white to black in 
two consecutive frames of a video sequence and if the 
encoder is in LPF_SEND mode, then the difference between 
30 the corresponding data values after quantization will be 
much larger than 37. 3 7 is the maximum number encodable 
using the specific Huffman code set forth in connection 
with an above-described method. Because such a large 
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change in data value cannot be encoded, an artifact will 
be generated in the decompressed image for any change in 
quantized data values exceeding 37. Accordingly, the 
Huffman code in the table below is used in accordance with 
5 one embodiment of the present invention. 



HUFFMAN CODE 


gindex 


0 


0 


lsl 


±1 


lsOl 


±2 


IsOOl 


+3 


IsOOOl 


+4 


I lsOOOOl 


±5 I 


IsOOOOOl 


16 | 


180000001 


±7 


lsOOOOOOO (|qindex|-8) 


±8 . . ±135 



Table 6 



In Table 6 above, the value (\ gindex \ - 8) is seven bits 
in length. The s in Table 6 above is a sign bit. 
This embodiment is not limited to video mail 

20 applications and is not limited to systems using dedicated 
hardware to compress and software executing on a digital 
computer to decompress. Digital circuitry of a general 
purpose digital computer having a microprocessor may be 
used to decode and inverse transform a compressed image 

25 data stream. The coefficients 5/8, 3/8, 1/8 and 1/8 

independent of sign may be the four coefficients of four 
coefficient high and low pass forward transform perfect 
reconstruction digital filters used to transform image 
data values into a sub-band decomposition. 



WO 94/23385 



PCT/GB94/00677 



• 88 - 

Although the present invention has been described by 
vay of the above described specific embodiments, it will be 
understood that certain adaptations, modifications, 
rearrangements and combinations of various features of the 
5 specific embodiments may be practiced without departing 
from the scope of the invention. Filters other than the 
four coefficient quasi-Daubechies filters can be used. In 
some embodiments, six coefficient quasi-Daubechies filters 
are used. Embodiments of this invention may, for example, 

10 be practiced using a one-dimensional tree structure, a two- 
dimensional tree structure, or a three-dimensional tree 
structure. Rather than testing whether or not a two-by-two 
block of data values is interesting, blocks of other sizes 
may be used. Three-by-three blocks of data values may, for 

15 example, be tested. Blocks of different sizes may be used 
in different octaves of a decomposition. In certain 
embodiments, there are different types of interesting 
blocks. The use of tokens in combination with use of a 
tree structure of a decomposition to reduce the number of 

2 0 data values encoded may be extended to include other tokens 

having other meanings. The "interesting with motion 91 token 
is but one example. Tree structures may be used in 
numerous ways to estimate the activity of a frame for rate 
control purposes. Numerous boundary filters, thresholds, 
25 encoder and decoder modes, token schemes, tree traversing 
address generators, quantization schemes, Huffman-like 
codes, and rate control schemes will be apparent from the 
specific embodiments. The above-described specific 
embodiments are therefore described for instructional 

3 0 purposes only and are not intended to limit the invention 

as set forth in the appended claims. 
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source/Bits. c 



/* 

Reading and writing bits from a file 

*/ 

^include "../include/xwave.h" 
^include "../indude/Bits.h" 

Bits bopen( name, mode) 

String name, mode; 

{ 

Bits bits=(Bits)MALLOC(sizeof(BitsRec)); 

if((bits- > fp = fopen(name .mode)) = =(FILE*)0)Eprintf( "Failed to open binary 
file\n"); /'change*/ 

bits- > bufsize =0; /*new*/ 

bits- > buf = (unsigned char)0; /*new*/ 

retum(bits); 

} 

void bclose(bits) 
Bits bits; 



{ 

if(fclose(bits->fp)!=0) Eprintf("Failed to close binary file\n"); /*was: 
fclose(bits->fp)*/ 
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XtFrcc(bits); 

} 

void bread(bytes,mun,bits) 

unsigoed char 'bytes; 
int aum; 
Bits bits; 

{ 

int byte-O, bit=0,pull,b; 

bytes [byte] =0; 
wbile{num>0) { 

if (bits- > bufsize = =0) { 

pull = fgetc(bits- > fp); 

if(pu!l= = EOF) 

{ 

/*printfCEOF\n"); Previously didn't check for 
EOF.bits- > buf = (unsigned char)fgetc(bits- > fp)*/ 

for(b = byte + 1 ;b < num/8 + 1 ;b + + ) 
bytes [b]= (unsigned char)0; 

return; 
} 

bits- > buf = (unsigned char)pull; 
bits- > bufsize =8; 

) 

bytes[byte] =((l&bits- > buf)! =0)?bytes[bytej | (1< < bit):bytes[bytej& - (1< < bit); 

if (bit= =7) { bit=0; byte+ + ; bytesfbyte]=0; } /* was bit= =8 •/ 

else bit+ + ; 

bits- > buf = bits- > buf > > 1 ; 
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bits- > bufsize-; 
num--; 

} 

} 

void bwriie(bytes t num,bits) 

unsigned char *bytes; 
int num; 
Bits bits; 



im byte=0, bit=0; 
unsigned char xfer; 



while(num>0) { 

if (bit==0){ 

xfcr = bytes [byte + + ] ; 
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source/Color. c 
/* 

* Color routines 
*/ 

* inc lude n . . /inc lude/x wa ve . h " 
#define GAMMA 1 .0/2.2 

int 

VisuaJClass[6] = {PseudoColor,DirectColor .TrueColor, SuticColor.GrayScalcStaticGray); 

/* Function Name: Range 

* Description: Range convert for RGB/YUV calculations 

* Arguments: oldjc • old value (O..old_r-1) 

* old_r - old range < new_r 

* new_r - new range 

* Returns: oldjc scaled up to new range 
•/ 

int Range(oldjc,oIdj f newj) 

int oldjc, old j, newj; 

{ 

retura((oldjc*newj)/oldj); 

.} 

J* Function Name: Ganuna 

* Description: Range convert with Gamma correction for RGB/YUV calculations 

* Arguments: as Range + 

4 factor - gamma correction factor 
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old_x gamma corrected and scaJed up to new range 

int Gamma(oIdjc t old_r,newj\ factor) 

int old_x, old_r, new_r; 
double factor; 

{ 

retura((int)((double)new_r*pow((double)old_x/(doubIe)old_r, factor))); 

} 

Function Name: Dither 

Description: Range convert with dithering for RGB/YUV calculations 
Arguments: levels - output range (0..1evels-l) 

pixel - pixel value (0..1 < <8+precision-l) 
x, y - dither location 

precision - pixel range (0..1 < <8+precision-l) 
Returns: dithered value (O.Jevels-1) 

int Dither(levels t pixeKx f y t precision) 
int pixel, levels, x, y f precision; 

{ 

int bits = 8 + precision, 

pixlev=pixel*levels, 

value = (pixlev> >bits)+((pixlev-(pixlev&(-l< < bits))) > > precision > global- >dither[x 
&15][y&15]?l:0); 



* Returns: 
*/ 



* 
* 
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rerurn( value > = levels?levels- 1 rvalue); 

} 

/* Function Name: ColCvt 

* Description: Converts between RGB and YUV triples 

* Arguments: sre - source triple 

* dst - destination triple 

* rgb_yuv - convert direction RGB- > YUV True 

* max - range of data (max- 1.. -max) 

* Returns: alters dst. 
*/ 

void ColCvt(src , dst, rgb_yu v, max) 

short srcf3], dst[3]; 
Boolean rgb_yuv; 
int max; 

{ 

double rgb_yuv_mat(2][3J[3] = {{ 

{0.299,0.587,0.114}, 
{-0. 169,-0.33 16,0.5}, 
{0.5,-0.4186,-0.0813} 

}.{ 

{1,0,1.4021}, 

{1,-0.3441,-0.7142}, 

{1,1.7718,0} 

>}; 

int i, channel; 



forichannel=0;channel< 3 ; channel + +) { 
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double sum=0.0; 

for(i=0:i<3;i + +) 
sum + = (double)(src[i])*rgb_yuv_mat[rgb juv?0: 1 ] [channel] [i]; 

dst[channel] = (int)sum < -max?-max : (int)sum > max- 1 ?max- 1 : (shon)sum; 

} 

} 

Function Name: CompositePixel 
Description: Calculates pixel value from components 
Arguments: frame - Frame to be drawn on 

x, y - coordinate of pixel in data 
X, Y - coordinate of pixel in display 
Returns: pixel value in colonnap 

int CompositePixel(frame ,x , y , X, Y) 

Frame frame; 

int x, y, X. Y; 

{ 

Video vid = frame- > video; 

int channel = frame- > channel, pixel, value =0; 

if (channel! =3) { 

pixel = (int)vid- > data[channel](frame- > frame][Address2(vid,channel,x,y)] + (128 < < vid- 
> precision); 

value = Dithcr(global- > levels.pixelX Y.vid- > precision); 
} else for(channel=0;channel<3;channel + +) { 
int 



/* 

* 
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levels = vid- > i>-pc= =RGB?global-> rgb_levels: global- >yuv_levelsfchannel]; 

pixel = (int)vid- > dataf channel] [frame- > frarae][Address( vid, channel, x,y)] +(128 < < vid- 
> precision), 

value = levels* value + Dither(levels,pixel,X, Y, vid- > precision); 

} 

return(value); 

} 

void InitVisualO 
{ 

Display »dpy = XtDisplay(global- > toplevel); 

int sera = XDcfaultScreen(dpy), class =0, depth=8, map, i, r, g, b, y, u, v; 
String 

VisualNames(6] - { "PseudoColor", "DirectColor", "TrueColor " , "StaticColor" , "Grayscale" . 
"StaticGray"}; 

XColor color, 

global- > vis info =(XVisuaJlnfo *)MAIXOC(sizeof(XVisuallnfo)); 
while(depth>0 

&&!XMatchVisualInfo(dpy,scra,depth, VisualClassfclassJ.global- > visinfo)) 
if (class = =5) {class =0; depth-;} else class++; 
Dprinrf("Visual: %$ depth %d\n",VisualNames[classJ,depth); 
global- > palettes = (Palette)MALLOC(sizeof(PaletteRec)); 
strcpy(global- > palettes- > name, "Normal"); 
global- > palettes- > next « NULL; 
global- > no_pals= 1 ; 
swhch(global- > visinfo- > class) { 
case TrueColor: 
case DirectColor: 
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case SiaticColor: 
case Grayscale: 

fprintf(stderc, "Unsupported visuaJ type: %s\o",VisualNames[class]); 
exit(); 
break; 
case PseudoColor: 

global- > levels = global- > visinfo- > colormap size; 

global- > rgbJevels=(int)pow((double)global- > levels, 1 .0/3.0); 

for(map=0;map<2;map + +) { /• rgb non-gamma and gamma maps */ 

global- > cmaps[map] = XCreaieColormap(dpy,XDefaultRootWindow(dpy) .global- > visinfo 
-> visual. Alloc All); 

for(r ~ 0;r < global- > rgb Jevels;r + +) 

for(g =0;g < global- > rgbjevels;g + +) 

for(b = 0;b < global- > rgbjevels;b + +) { 

color.pixel = (r'global- > rgbjevels +g) "global- > rgbjevels +b; 

color.rcd=(map&l)?Gamma(r .global- > rgbJevels.65536.GAMMA):Range(r,global- > rg 
b_levels,65536); 

color.green= (map&l)?Gamma(g,global- > rgb_levels,65536,GAMMA):Range(g,global- > 
rgbjevels, 65536); 

color.blue =(map&l)?Gamma(b,global- > rgbJevels.65536,GAMMA):Range(b,global- > r 
gb_levels,65536); 

color.flags-DoRed | DoGreen | Dofilue; 

XStoreColor(dpy,global- > cmapslmapj.&color); 

} 

color.pixel = global- > levels-1; 
color, red = 255 < <8; 
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color.green=255< <8; 

color. blue = 255 < <8; 

color.flags = DoRsd j DoGreen | DoBlue; 

XStoreColor(dpy .global- > cmaps[map],&color); 

} 

for(map=2;map<4;map++) { /* mono non-gamma and gamma maps */ 

global- > cmaps[map] = XCreaicColormap(dpy 1 XDefauliRootWindow(dpy) f global- > visinfo 
-> visual, Alloc All); 

for(i=0;i < global- > visinfo- > colonnap_size;i+ +) { 
color.pixel=i; 

color.rcd=(map&l)?Gamma(i f global- > levels,65536,GAMMA):Range(i,giobal- > levels t 6 
5536); 

color, green = (map& 1 )?Gamma(i , global- > levels ( 65536,GAMMA) :Range(i,global- > levels 
,65536); 

color.blue=(map&l)?Gamma(i f global-> levels,65536,GAMMA):Range(i,gIobal- > levels, 
65536); 

color, flags =DoRed | DoGreen | DoBlue; 
XStoreColor(dpy t global- > cmaps[map] v &color); 

} 

} 

global- > yuvjevels[0] =(int)pow((double)global- > levels, 1 .0/2.0); 
global- > yuv_levels[l] = (int)pow((double)global- > levels, 1 .0/4.0); 
global- > yuv_levels[2] = (int)pow((double)global- > levels, 1 .0/4.0); 
for(map=4;map<6;map++) { /* yuv non-gamma and gamma maps */ 



global- > cmaps[map] =XCreaieColormap(dpy t XDefaultRootWindow(dpy),globaI- > visinfo 
- > visuaKAllocAll); 

for(y =0;y < global- > yuvjevels{0];y + + ) 
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for(u=0:u < global- >yuv_levels[l];u+ +) 

for(v=0;v < global- > yuv_ievels[2j;v+ +) { 
short 

src[3] = {(sbon)(R2nge(y. global- > yuv_levels[0],65536)-32768), 

(shon)(Rauge(u,global->yuvJevcls[l],65536)-32768) f 

(shon)(Rai}ge(v,global- > yuv_levels[2] ,65536)-32768)}, dst[3]; 

ColCvt(src,dst,False.65536/2); 

color .pixel = (y "global- > yuvje vels[ 1 ] + u) "global- > yuvje vels[2] + v ; 

color.red=(nup&l)?Gamma((im)dst[0]+32768^ 
8; 

color.green=(map&l)?Gamma((ini)dst[l]+32768.65536,65536,GAMMA):^ 
768; 

color, blue =(map& l)?Garoma((int)dst[2] +32768.65536,65536,GAMMA):(int)dst[2]+327 
68; 

color.flags = DoRed | DoGreen j DoBlue; 

XSioreColor(dpy .global- > cmaps[map],&color); 

} 

color.pixel = global- > levels- 1; 

color.rcd=255< <8; 

color.green=255< <8; 

color.bluc=255< <8; 

color. flags =DoRed | DoGreen j DoBlue; 

XSioreColor(dpy .global- > cmapsfmap], Acolor); 
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global- > palettes- > mappings = NULL; 
break; 
case StaticGray: 

global- > levels = 1 < < depth; 

for(i=0;i<6;i++) global- >cmaps[i] = XDefaultColormap(dpy, sera); 
color.pixel=0; 

XQueryColor(dpy t XDefaultColormap(dpy,scni),&color); 
if (color.red==0 && color. green= =0 && color.blue= =0) 
global- > palettes- > mappings = NULL; 
else { 

global- > palettes- > mappings = (Map)MALLOC(sizeof(MapRec)); 

global- > palettes- > mappings- > start =0; 

global- > palettes- > mappings- > finish = global- > levels- 1 ; 

global- > palettes- > mappings- > m = - 1 ; 

g lobal- > palettes- > mappings- > c ■ global- > levels- 1 ; 

global- > palettes- > mappings- > next = NULL; 

break; 

} 

} 



Colormap ChannelCmap(channeLtype,gamma) 



int channel; 
VideoFormat type; 
Boolean gamma; 



Colormap cmap; 



if (channel!=3 1 1 type = -MONO) { 

if (gamma) cmap = global- > cmaps[global- > cmaps[2] = = NULL73 :2] ; 
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else cmap=global->cm2ps(globa]->cmaps(3] = =NULL?2:3]; 
} else if (type = = RGB) { 

if (gamma) cmap = global- >cmaps[global->cmaps[0] = =NULL?1:0]; 
else cmap = global- > cmapsjglobal- > cmapsf 1 ] = = NULL70: 1 ] ; 

} else { 

if (gamma) cmap = global- > cmaps[global- > cmaps[4] = =NULL?5:4]; 
else cmap = global- > cmaps(global- > cmaps(f ] = = NULL?4:5] ; 

} 

return(cmap); 



WO 94/23385 PCT/GB 94/00677 

- 103 - 

source/Convert.c 



^include "../include/xwave.h" 
sbon cti(c) 
char c; 

{ 

renirn((short)(c) A -128); 

} 

char itc(i) 
shon i; 

{ 

static int errors =0; 
if (i<-128 || i> 127) { 
if (errors ==99) { 

Dprinrf("100 Conversion overflows\n"); 
errors=0; 
} else errors++; 
i=(i<-128)?-128:127; 

} 

return((char)(ri28)); 

} 
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source/CoDvolve3,c 



/• 

2D wavelet transform convolver (fast hardware emulation) 
New improved wavelet coeffs : 11 19 5 3 

*/ 

^include " . ./include/xwave.h" 
/* Function Name: Round 

* Description: Rounding to a fixed number of bits, magnitude rounded down 

* Arguments: number - number to be rounded 

* bits - shifted bits lost from number 

* Returns: rounded number 
*/ 

short Round(number 9 bits) 

int number; 
int bits; 

{ 

if (bits= =0) return((shon)number); 

else retura((shon)(number+(l < <bits-l)-(number<0?0:l) > > bits)); 

} 

/* Function Name: Convolve 

* Description: Perform a wavelet convolution on image data 

* Arguments: data - data to be transformed 

* dim - convolution direction 
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* size - size of image data 

* oct_src, oct_dst • initial and final octave numbers 

* Returns: data altered 
*/ 

void Convolve(data,dirn,size,oct_src,oct_dst) 

short *data; 

Boolean dim; 

inr size[2], oct_src, octdst; 

{ 

int tab{4][4], addr[4] ={-1.-1,-1,-1}, index, mode, i, j, oct, orient, 
area=size[0]*size[l]; 

Boolean fwd_rev = oct_src < oct_dst; 

int windows! 12][5]={ 

{1,2,3,-4,2}, /• 0 - normal forward 0 */ 
{4,-3,2,1,3}, /• 1 - normal forward 1 */ 
{1,-2,3,4,2}, /• 2 - normal reverse 0 */ 
{4,3,2.-1,3}, /* 3 - normal reverse 1 */ 
{2,3,4,-4,3}, /* 4 - end forward 0 */ 
{4,-4,3,2,4}, /* 5 - end forward 1 */ 
{2,2,3,-4,2}, /* 6 - start forward 0 •/ 
{4,-3,2,2,3}, /* 7 - start forward 1 •/ 
{3,-4,-4,3,4}, /* 8 - break reverse end dirn= =FaJse*/ 
{4,3,-3,-4,3}, /• 9 - break reverse stan dirn== False */ 
{-3,-4,4,3,4}, /• 10 - break reverse end dirn==True •/ 
{-4,3,3,-4,3}, /* 11 - break reverse start dim==True */ 

}, win[3]; /* 12 - no calculation */ 

for(oct=oct_src;oct! =oct_dst;oct+ =(fwd_rcv?l:-l)) { 
long shift=oct-(fwd_rev?0:l); 
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for(oriem=0;orieni<2:orient+-i-) { 

Boolean x_v = fwd_rev = = (orient = = 0); 

for (index=0:index<(area> >(shift< < l));index + +) { 

long major, minor, value, valuex3. vaJuexll, valuexl9, valuex5; 

major = index/(siie[x_y?0: 1 J >> shift); 
minor - index-major'(sizelx_y?0: 1] > > shift); 
for0=0;j<3;j + +) winfj>12; 
switcb(minor) { 
case 0: break; 

case 1: if (!fwd_rev) win{0]=dirn?ll:9; break; 

case 2: if (fwd_rcv) { win[0]=6; win[l]=7; }; break; 

default: 

if (minor+ 1 = =size[x_y?0: 1] > > shift) { 

if (fwd rev) { win[0]=4; win(l]=5; } 

else { win[0]=2; win[l]=3; win[2]~dirn?10:8; } 

} else if (fwd_rev) { 

if ((l&minor)= =0) { win(0]=0; win[l] = l; } 

} else { 

if ((l&minor)!=0) { win[0]=2; win(l]=3; } 

} 

} 

addr[3&index] = (x_y?minor: major) + size[0] *(x^?major:minor) < < shift; 
value = (int)<latafaddr[3&index]] ; 

valuex5 = value + (value < <2); 
valuex3 = value + (value < < 1 ); 
valuexl 1 = valuex3 + (value < < 3); 
valuexl9=vaiuex3+(value< <4); 
ub[3&index][3]=fwd_rev || !dirn?valuex3:valuexl9; 
tab(3&index][2J = fwd_rev || dirn?valuex5: valuexl 1; 
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tab[3<&iDdex][l] = fwd_rcv j{ !dirn?valucxl9:valuex3; 
tab(3<&ijidex][0] = fwd_rev |j dim?vaJuexll:va]ufixi; 
for<j=0;j<3 && win(j]! = 12;j++) { 
int conv=0; 

for(i=0;i<4;i + +) { 

int wave=dira?3-i:i; 



conv+=negif(0>windows[wmO']]Iwave],tab[3&index+abs(wmdows[winO']][i])][waveJ) 

} 

datafaddr(3&index+ windows[win[j]][4]]]=Rouiid(conv,fwd_rev?5:win|j] > 7?3:4); 
} 

} 



WO 94/23385 



PCT/GB94/00677 



- 108 - 

source/Copy .c 



/♦ 

Copy video, includes direct copy, differencing, LPF zero, LPF only, RGB-YUV 
conversion and gamma correction 
♦/ 

#include "../include/xwave.h" 
^include "Copy.h" 
extern int Shift(); 
extern void CoICvtO; 

void Copy VideoCtrl(w, closure, call_data) 

Widget w; 
caddr_t closure, call_data; 

{ 

CopyCtrl Ctrl «= (CopyCtrl)closure; 

Video new =CopyHeader(ctrl-> video), src=ctrl-> video; 

im frame, channel, i # x, y f X, Y, map[256]; 

if (global- > batch = = NULL) 
Ctrl- > mode = (int)XawToggleGetCunrni(ctrl- > radioGroup); 
strcpy(ncw- > name,ctrl- > name); 
sircpy(new- > files, new- > name); 
switch(ctrl->mode) { 
case 1: Dprintf("Direct copy\n"); 

new- > UVsample[0] -Ctrl- > UVsample[0]; 
new-> UVsample[l] =ctrl-> UVsamplefl]; 
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break; 

case 2: Dprintf("Differences\n"); 

break; 

case 3 : DpriDtf("LPF zero\n n ); 

break; 

case 4: DprintffLPF only\n B ); 

new- > trans. type = TRANS_None; 

new- > size[0] = new- > sizefO] > > new-> trans. wavelet. space[0]; 

new- > size[l] « new- > size! 1] > > new- > trans, wavelet.space[OJ; 

break; 

case 5: Dprintf("RGB-YUV\n"); 

new- > type = new- > type = = YUV7RGB: YUV; 
new- > UVsample[0] =0; 
new- > UVsample[l] =0; 
break; 

case 6: Dprintf("Gamma conversion^"); 

new- > gamma = !new- > gamma; 
for(i«=0;i<256;i++) 
map[i] = gamma(i,256,ncw- > gamma?0.5:2.0); 

break; 

} 

if (new->disk==True) SaveHeader(new); 
for(frame«0;frame<ncw->si2e[2];frame++) { 

GetFrame(src,frame); 

NewFrame(new f frame); 

s whch(ctrl- > mode) { 

case 1: 

for(channel =0;channe] < (new- > type = = MON071 :3);channel + +) { 

int size = Size(new,channel,0)*Size(new t channel f 1); 
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forty =0; y < Size(new,channcl, 1 );y + + ) 

for(x=0:x<Size(new,channel.O);x + +) 

new- > data[channel][rraine] [x + Siz£(new.channel,0)*y] = src- > data[channel ] [frame] [Shift( 
x.src- > type = = YUV && 

channel ! = 0?ne w-> UVsample (0]-src- > UVsamplc [0] :0) + S ize(src , channel ,0) *S hift(y,src- 
> rype = = YUV && crwLnnel!=0?new->UVsample[l]-src->UVsample[l]:0)]; 

} 

break; 

case 2: 

for(channeJ =0;channel < (new- > type = = MONO?1 :3);channel + + ) { 

int 

si2e=Si2e(Qew ( channel f 0)*Si2e(new,chaiinel,l); 

for(i=0;i<$ize;i++) 

new- > data[channel][frame][i] =src- > data[channel][frainc)[i]-(fraine- =0?0:src- > datafch 
annel][frame-l][i]); 

} 

break; 

case 3: 

for(channel =0;channel < (new- > type = = MON071 :3);channel + +) { 

int 

size = Size(ncw,channel,0)*Size(new,channeh 1); 

for(i=0;i<size;i++) { 

x = i %Size(new,channeI,0); 

y = i/Size(new, channel, 0); 

if 

(x%(l < < new- > trans, wavelet. space[new- > type == YUV && channel! =0?1 :0])= =0 
&& y%(l< < new- > trans. wavelet. space[new-> type = = YUV && 
channel! =0?1:0])==0) 
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new- > data[channel] (frame] [i] =0; 

else 

new- > daia[channel][fraine][i] = src->data[channel](frame][i]; 

} 

} 

break; 

case 4: 

for(channel = 0;channel < (new- > type = = MON071 ; 3); channel + +) { 

int 

size=Size(new,channel,0)*Si2e(new,channel t l); 

for(i=0;i<size;i++) { 

x=i%Size(new,channe!,0); 

y = i/Si2e(new, channel.O); 

new- > data [channel] [frame] [i] = src- > datafchaimel] [frame] [(x +(y < < new- > trans, wavele 
t.space[0])*Size(ncw,channel,0))< < new- > trans. wavelet. space [0]]; 

} 

} 

break; 

case 5 : f or(X - 0;X < new- > size [0] ;X + + ) 
for(Y=0;Y<Dew->size[l];Y++) { 

short srcjriple[3], dst_triple[3]; 

for(channel=0;channel<3;chani>el+ +) 

src_triple [channel] = src- > data[channel][frame][Address(src t channel f X f Y)]; 

ColC vi(src_triple ,dst_triple , new- > type = = YUV, 1 < <7+ new- > precision); 

for(channel=0;channel<3;channel+ +) 

} 

SUBSTITUTE SHEET (RULE 26) 
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break; 

case 6: 

for(channel=0;channel < (new- > type = =MONO?l :3);channel + +) { 

int 

size = Si2e(new, channel. 0)*Si2e(new,channel f l); 

for(i=0;i<size;i++) 
new- > data[channel][frame][i] = map[src- >daia[channel][fraroe][i] + 128]- 128; 

} 

break; 

} 

if (frame >0) FrecFrame(src , frame- 1 ) ; 
SaveFrame(new, frame); 
FrccFramc(new,frame); 

} 

FrecFrame(src,src- > size[2]-l); 
new- > next = global- > videos; 
global- > videos = new; 

} 

void BatchCopyCtrl(w,closure ( call_data) 

Widget w; 

caddr t closure, call data; 



CopyCtrl Ctrl = (CopyCtrl)closure; 

if (ctrl- > video == NULL) 
Ctrl- > video = Find Video(ctrl- > sre^name .global- > videos); 
CopyVideoCtrI(w t cIosurc,call_data); 

} 
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CopyCtrl InitCopyCtrl(name) 

String name; 

{ 

CopyCtrl Ctrl = (CopyCtrl)MALLOC(sizeof(CopyCtrlRec)); 

strcpy(ctrl- > src_name.name); 
sorpy (ctrl- > name .name); 
Ctrl- > mode= 1; 
return(ctrl); 

} 

#define COPYJCONS 17 
void CopyVideo(w,closure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

Video video =(Video)closure; 

CopyCtrl ctrl =InitCopyCtrl(video-> name); 

Numlnput UVinpuu = (Nuininput)MALLOC(2*sizeof(NiimInputRec)); 
Message msg = NewMessage(ctrl- > name , N AME_LEN) ; 
XtCallbackRec destroy_callO - { 

{Free,(caddr_t)ctrl} t 

{Free,(caddrJ)UVinputs} , 

{CloseMessage,(caddr_t)msg} , 

{NULL.NULL}. 

}; 

Widget shell=ShellWidget("copy_video n ,w,SW_below,NULL,destroy_call), 
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fonn = FonnatWidget("cpy_form". shell), widgeis[COPY ICONS]; 
Formltem itemsD = { 

{ "cpy^canccl" , "cancel" ,0,0,FW_icon,NULL} , 
{ " cpy_confinn" , "confirm" , 1 , O.FWJcon, NULL} , 
{"cpy_tiUe","Copy a video",2,0.FWJabel,NULL}, 
{ "cpy_vid_lab", "Video Name: ",0,3, FWJabel.NULL} , 
{ "cpy jext" ,NULL,4 ,3 ,FW_text. (String)msg} , 

{ "cpy_copy", "copy " ,0,5, FWjoggle, NULL} , 

{ "cpy_difT . "difT ,6,5,FWjoggle,(String)6} , 

{ "cpy Jpfzero " , "lpfzero" ,7,5,FW_toggle,(String)7} , 

{"cpyJpf_only","lpf_only",8,5,FWjoggle,(String)8}, 

{ "cpy_color ". "color_space " .9.5.FW joggle,(String)9} , 

{"cpyjaminaVgamnia\10,5,FWjoggle,(String)10} f 
{"cpy_UV0_im".MJlX,0,6,FW_mieger,(Strmg)&UVinputs[0]}, 
{ "cpy_UVO_down\NULL, 12,6,FW_down,(Slring)&UVinputs[0]} , 
{ "cpy_UV0_up ■ .NULL, 13,6.FW_up,(String)&UVinputs[01} , 
{ "cpy_UVl_im " , NULL, 0,14 ,FW_inieger, (Siring)&UVinpuis [ 1] } , 

{ "cpy_UVl_down" .NULL, 12, 14 ,FW_down,(String)&UVinputs[ 1] } , 
{ "cpy_UVl_up " .NULL, 16, 14,FW_up, (String)&UVinpuis[l] }, 

}; 

XtCallbackRec callbacksU - { 
{Destroy, (caddrj)shell}, 
{NULL.NULL}, 
{Copy VideoCtrl,(caddr_t)ctrl} , 
{Destroy,(caddr j)shell} , 
{NULL.NULL}, 

{NULL.NULL}. {NULL.NULL}, {NULL, NULL}, {NULL.NULL}, 
{NULL.NULL}, {NULL.NULL}. 

{NumIncDec,(caddr_i)&UVinputs{0}}. {NULL.NULL}. 
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{NumIncDcc,(caddrj)&UVinputs(0]}, {NULL, NULL}, 
{NumlDcDcc,(caddrj)&UVinpuis[l]} f {NULL.NULL}, 
{NumIncDec,(caddrj)&UVijiputs[lJ}, {NULL.NULL}, 

>: 

Dprimf("CopyVideo\n"); 

msg- > rows = 1 ; msg- > cols = NAME_LEN; 
Ctrl- > video = video; 

UVinputs[0].format='UV sub-sample X: %d"; 

UVinputs[0].min=0; 

UVinputs[0].max=2; 

UVinpu ts[0]. value = &ctrl->UVsample[0]; 
UVinputs[l]. format = "UV sub-sample Y: %d"; 
UVinpuu[l].min=0; 
UVinputs[l] .max =2; 

UVinpuisfl]. value = Actrl- > UVsample[l]; 

Ctrl- > UVsample[0] = video- > UVsamplefO]; 
Ctrl- > UVsample[l]= video- > UVsample[l]; 

FillForm(fonn,COPY_lCONS,items,widgets,callbacks); 
Ctrl- > radioGroups widgets[5]; 
XtSetSensitive(widgets[6J, video- > size[2] > 1); 
XtSctSensitivc(widgets(7] , video- > trans . type ! = TRANS_Nonc) ; 
XtSetSensitive<widgets[8] , video- > trans, type! = TRANS_None); 
XtSetSensitivc(widgets[9J, video- > type! = MONO); 
XtSetSenshive(widgetsllO],video- > type! = YUV && 
video- > trans, type = =TRANS_None); 
XtPopup(shelKXtGrabExclusive); 

}; 
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source/Frame. c 



/* 

Frame callback routines for Destroy 

•/ 

^'include ./includc/xwave.h" 

^include < Xll/Xmu/SysUtil.h> 

^include <pwd.h> 

extern void CvtlndexO; 

extern Palette FindPaletteO; 

extern void SetSensitiveO; 

typedcf struct { 
Frame frame; 

int framc_number, framc_zoom f frame_palette t frame_channel; 
} ExamCtrlRec, *ExamCtrl; 

void FrameDestroy(w f closure ,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

Frame frame =(Frame)closure; 

void ClcanUpPointsO, FrameDeleteO; 

DprintfCFrameDestroyNn"); 
frame- > point- > usage-; 
if (frame- > msg! = NULL) { 
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frame- > msg- > shell = NULL; 
CloseMessage(NULL.(caddr_t)ftame- > rasg.NULL); 

} 

if (frame- > point- > usage ==0) Clean UpPoints(&global- > points); 
XtPopdown(frame- > shell); 
XtDestroy Widgetfframe^ > shell); 
FrameDelete(&giobal-> frames f frame); 



void CleanUpPoints(points) 



Point *points; 



Point dummy =*points; 

if (dummy! = NULL) { 

if (dummy- > usage < 1) { 

♦points «= dummy- > next; 
XtFrec(dummy); 
CleanUpPoiDts (points); 

} else CleanUpPoiius(&((*po ints >- >nexl )); 

}; 



void FrameDelete(frames t frame) 

Frame *frames, frame; 

{ 

if (♦frames! =NULL) { 
if (*frames= = frame) { 
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int number = frame- > frame ; 

frame- > frame =-1; 
FreeFrame(frame- > video, number); 
•frames = frame- > next; 
XtFree(frame); 
} else FrameDeleie(&(*frames)->nexuframe); 



} 

} 

void ExamineCtrl(w,closurc,call_data) 

Widget w; 

caddr t closure, call data; 



{ 



ExamCtrl ctri = (ExamCtrl)closure; 
Arg args(l]; 

if (ctrl- > frame- > frame! ■> Ctrl- > framc_numbcr-ctrl- > frame- > video- > stan) { 
in! old_framc = ctrl- > frame- > frame; 

ctrl- > frame- > frame = ctrl- > frame_number-ctrl- > frame- > video- > start; 
FreeFrame(ctrJ- > frame- > video,old_frame); 
GetFrame(ctrl- > frame- > video, Ctrl- > frame- > frame); 

> 

ctrl- > frame- > zoom- ctrl- > frame_zoom; 
ctrl- > frame- > palette = ctrl- > frame j>alette; 
ctrl- > frame- > channel =ctrl- > frame_channel; 
XtSetArg(args[0] t XtNbitmap f Updatclmagc(ctrl- > frame)); 
XtSetValues(ctr)- > frame- > image_widget,args,ONE); 
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XiSetArg(args(0],XLNcolonEap,ChannelCniap(ctrl- > frame- > channeUtrl- > frame- > vide 
o- > type, Ctrl- > frame- > video- > gamma)); 

XtSetVaJu«(ctrl- > frame- > shell.args.ONE); 

if (Ctrl- > frame- > msg! = NULL) UpdateInfo(ctrl- > frame); 

} 

^define EXAMJCONS 13 
void Examioe(w ) clo5ure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

ExamCtri ctrl=(ExamCtrl)MALLOC(sizeof(ExamCtrIRec)); 
Numlnput num_inputs = (NumIi^nit)MALLOC(2»si2eof(NumIi9JUtRec)); 
XtCallbackRec destroy_callQ-{ 

{Free,(caddr_t)ctrl}, 

{ Free, (caddr_t)nurn_inputs}, 

{NULL.NULL}, 
} , pal_call[2 'global- > no_pals]; 

Widget shell =ShellWidget("examine",w,SW_below,NULL,destroy_call), 

form - FonnatWidgetC exam Jorm " , shell), widgets [EXAMJCONS] , 
pal_widgets[global->no_pals], pal_shell; 
Frame frame = (Frame)closuir ; 
Fonnltem itemsQ = { 

{ "exam_cancel\ "cancel " ,0,0,FW icon,NULL) , 
{ "exam j:onfinn " , "confirm" , 1 ,0,FW Jcon,NULL} , 
{"examJabel","Fjiamine",2,0,FWJabel,NULL}, 
{ "examjrh Jab" , •Channel : " ,0,3, FW _label,NULL} , 



{ "exam_ch_bm" ,ChannelName[framc- > video- > rype][frame- > channel] ,4,3 ,FW J>utton, 
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exam_cng_ch"}. 

{"exam_paljab\ "Palette :".0.4.FW_label,NULL}. 

{ "exam_pal_btn" ,FiixlPalene(global- > pa lenes, frame- > palette)- > name,4,4,FW button, " 

exam_cng_par}, 

{"exaJn_z_int^NUli,0,6,FW_integer,(String)&num_inputs(0]}, 

{"exam_2_dowra^^rlJ^X,8,6,FW_downXSl^ing)&nuIn_inputs(0]}, 

{ ,, exam_z_up",NULL,9,6,FW_up,(String)&num_inputs[0]}, 

{ " exam_zoom_int " ,NULL,O t 8 ,FW_integer, (String)&num_inputs[ 1] } , 

{ " exam_zoom_dowm " . NULL, 8 , 8 ,FW_down,(S tring)&num_inputs[ 1 ] } , 

{"exam_zoom_up",NUli,12,8,FW_upXString)&nuin_iBputs[l]}, 

}; 

Menultem pal_meou[global->no_pals]; 
XtCaJlbackRec callbacksO={ 

{Destroy , (caddrj)sbell} , 

{NULL.NULL}, 

{ExamineCtrl,(caddr_t)ctrl}, 

{Destroy ,(caddr_t)shell} , 

{NULL.NULL}, 

{NumIncDec,(caddrj)&mim_inputs[0]}, {NULL.NULL}, 
{NumincDec,(caddx_t)&mim_inputs{0]} t {NULL.NULL}, 
{NumIncDec,(caddrj)&nura_ii?mts[l]}, {NULL.NULL}, 
{NumlncDec , (caddr_t)&num_inputs[ 1 ]} , {NULL, NULL} , 

}; 

int i, width =0; 

Palette pal « global- > palettes; 

XFontStruct "font; 

Arg args[l]; 

caddrj dumraylglobal- > no _pals] , dummy2 [global- > no_palsJ ; /* 

gcc-mc68020 bug avoidance */ 

Dprintf("Examine\n"); 
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Ctrl- > frame = frame; 

Ctrl- > frame_number= frame- > frame + frame- > video- > start; 
Ctrl- > frame_zoom = frame- -> zoom; 
Ctrl- > frame j>alette= frame- > palette; 
Ctrl- > frame_channel= frame- > channel; 
num_inputs[0].fonnat = 'Frame: %03d"; 

num_input5[0] . max = frame- > video- > start* frame- > video- > size [2] -1 ; 

num_inpu ts [0] . min = frame- > video- > start; 

num_inputs(0] . value =&ctrl- > frame_number; 

rnim_inpu ts[l]. format = 'Zoom: %d"; 

nuxn_inputs[ 1 ] . max ■ 4; 

num_inputsll] .min ==0; 

num_inputs [ 1 ] . value = &ctrl- > frame_zoom; 

FUlForm(fonn t EXAMJCONS^tems f widgets f caUbacks); 

font = FindFont(widgets[6]); 
f or (i=0;pal!=NULL;pal=paI->next f i++) { 

pal_menu [i] . name = pal- > name; 

pal_menu [i] . widgetClass = smeBSBObjectClass ; 

pal_menu [i] . label = pal- > name; 

pal_menu[i] .hook = NULL; 

pal_call[i*2]. callback =SimpleMenu; 

pal_callli*2] . closure = (caddr_t)&ctrl- > frame _palette; 

pal_call[i*2 + 1]. callback « NULL; 

pai_call[i*2 + 1 ] .closure = NULL; 

width=TextWidth(width f pal- > name, font); 

} 

pal_shell = SheUWidgctfexam^cng j)al" t shelUSW_menu t NULL,NULL); 
FillMenu(pal_shell,global- > noj>als,pal_menu,pal_widgets,paI _call); 
XtSetArg(args[0] ,XtNwidth, 2 + width); 
XtSetValues(widgets[6] ,args t ONE); 
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if (frame- > video- > type == MONO) XtSetSensitive(widgets(4], False); 
else { 

Menultem ch_menu(4J; 
Widget 

ch_shell = ShellWidget("exam_cng_ch",sbell,SW_menu.NULL,NULL), ch_widgets{4); 
XtCallbackRec ch_call[8]; 

font= FiDdPont(widgets(4J); 
width =0; 

for(i=0;i<4;i++) { 

ch_menu[i].name =ChannelName[frame- > video- > typejfi]; 
ch_menu[i] . widgetClass = smeBSBObjectClass; 
ch_menu[i]. label =ChannelName [frame- > video- > type][i]; 
ch_menu[i] .hook=(caddr_t)&ctrl- > frame_channel; 
cb_caJl[i *2] . callback = SimpleMenu; 
ch_caJl[i*2]. closure » (caddr_t)&ctri- > frame_channel; 
cb_call[i*2 + 1 ] .callback = NULL; 
ch_call[i*2 + 1 ] .closure = NULL; 



width=TextWidtb(width,ChannelNanie[firame- > video- > type][i],font); 
} 

FillMenu(ch_she)l,4 ,ch_menu,ch_widgets,ch_call); 
XtSetArg(axgs[0] ,XtNwidth.2 + width); 
XtSetValues(widgets[4] ,args, ONE) ; 

} 

XtPopup(sbell,XtGrabExclusive); 

} 



void FramePoint YN(w, closure , call_data) 



Widget w; 

caddr t closure, call data; 
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{ 

Frame frame = (Frame)closure; 
Arg args[l]; 
Pixmap pixmap; 

Display *dpy==XtDisplay(global->top!evel); 
Icon point_y = FindlconCpoint^y "), 

point_n = FindlconCpointjT); 

Dprintf("FramePointYN\n"); 

frame- > point_switch= ! frame- > poini_switch; 

XlSetSensitive(frame- > image_widget t frame- > point switch); 

XtSetArg(args[0] .XtNbitmap, (frame- > point_switch?poimj:point_n)- > pixmap); 

XtSetVahies(w f args t ONE); 

XtSetArg(args[0] ,XtNbitmap f &pixmap); 

XtGetValues(frame- > image jvidget f arg$,ONE); 

UpdatePoint(dpy f frame , pixmap); 

XtSetArg(args[0] , XtNbitmap.pixmap); 

XtSetVahies(frame- > image_widget,args,ONE); 

if (frame- > msg! =NULL) Updatelnfo(frame); 

} 

void NewPoint(w,closure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

Frame frame =(Frame)closure; 
Video vid= frame- > video; 

void UpdateFramesO; 

int *posn = (int *)call_data« 

channel = frame- > channel = =3?0: frame- > channel; 
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posn[0]=posn[0]> > frame- > zoom; posn[l]=posn[l]> > frame- > zoom; 
if (vid- > trans.rype= =TRANS_Wave) { 

ini octs=vid- > tram. wavelet. space(vid- > type = = YUV && 
channel! =0?1:0], oct; 



CviIndex(posn[0],posn[l],Size(vid,chan^ 
,&oct); 

} 

if (vid- > type == YUV channel! =0) { 

posn[0] =posnfO] < < vid- > UVsample(0]; 
posn( 1] =posn[l] < < vid- > UVsample[l]; 

} 

Dprintf("NewPoint %d %d previous %d 
%d\n\posn[0],posnll], frame- > point- > location[0], frame- > point- > location[l]); 

if (posn[0] ! = frame- > point- > location[0] 1 1 
posn[l]! = frame-> point- >location(l]) { 

UpdateFrames(global- > frames, frame- > point, False); 
frame- > point- > location[0] =posn[0]; 
frame- > point- > location! 1] =posn[l]; 
UpdateFrames(global- > frames, frame- > point, True); 
} else Dprintf("No movement\n"); 

} 

void UpdateFrames(frame,point v update) 

Frame frame; 
Point point; 
Boolean update; 



{ 

Arg args[l]; 
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if (frame! = NULL) { 

if (point == frame- >poini && frame- > point_$witch = = True) { 



X tSe tArg (args [0] ,XiNbitmap , Apixraap) ; 
XtGetValues(frame- > image_widget,args, ONE); 
UpdatePoim(dpy,frame,pixmap); 
if (update == True) { 

XtSetArg(args[0] t XtNbitmap t pixmap); 

XtSetValues(frame- > image_widget,args,ONE); 

if (frame- > msg! =NULL) Update Info(frame); 



Pixmap 
Display 



pixmap; 

*dpy=XtDispiay (global- > toplevel); 



} 

UpdateFrames(frame- > next, point, update); 



void CloseInfo(w,cIosure,calljiata) 



Widget 



w; 



caddr t 



closure, cal]_data; 



{ 



Frame frame = (Frame)closure; 



frame- > msg = NULL; 



Idefine 



INFO ICONS 



2 



void FrameInfo(w,closure,call_data) 
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Widget w; 

caddr t closure, calJ data; 



Frame frame = (Frarac)closure; 

Message msg = NewMessage(NULL, 1 000) ; 

XtCaJlbackRec callbacksO={ 
{SetSensitive,(caddr_t)w} , 

{Closelnf o , (caddr J)frame} , 
{CloseMessage,(caddr_t)msg} , 
{NULL.NULL}, 

}; 

Dprinrf("Frainelnfo\n"); 
frame- > msg = msg; 
Update Info(frame); 
TextSize(msg); 

Message Window(w, msg, frame- > video* > name.True, callbacks); 
XtSetSensitive(w,False); 

} 

void FrameMerge(w,closure,call_data) 

Widget w; 

caddr t closure. call_data; 

{ 

Frame frame = (Frame )closure; 
void MergcPointsO; 
Arg args(l]; 

Dprintf("FrameMerge\n"); 
MergePoims(global- > frames.frame); 
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void MergcPoirns(frame_search,£rame_foufld) 
Frame fraroe_search, frame_found; 

{ 

Arg args[l]; 

if (frame_search! = NULL) { 

if (NULL= = XawTogglcGetCurreni(franie_search- > point_merge_widget) 
j| fnime_search = = frame_found) 

MergcPomts(frame_search- > next t frame_found); 

else { 

Pixraap pixmap; 

Display *dpy = XiDisplay(global- > toplevel); 



XtSeiArg(args[0] 9 XtNbitmap 9 &pixmap); 
XtGetValues(frame_found- > image^widget.args.ONE); 
if (frame_found- > point_switch = = True) 
UpdaiePoint(dpy , frame_found f pixmap); 

frame_search- > point- > usage + + ; 
frame_found- > point- > usage-; 
if (frame_found- > point- > usage = =0) 
CleajiUpPoints(&global- > points); 

frame_found- > point = frame_search- > point; 
if (frame_found->point - switch==Tnie) { 

UpdatePoint(dpy ,frame_found f pixmap) ; 

XtSetArg(argslO] .XtNbitmap, pixmap); 

XtSetValues(frameJbund->~iimge_^^ 

} 

if (frame_found- > msg! = NULL) UpdateInfo(frame_found); 
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XawToggleUnsetCurrem(frame_searcb- > point merge widget); 
XawTogg]eUnsetCurrcnt(frame_found- > point_merge_ widget); 

} 

} 

} 

^define POST_DIR "postscript" 

void PostScript(w,closure,calljiata) 

Widget w; 

caddrj closure, call_data; 

{ 

Frame frame = (Frame )closuit; 
Video video = frame- > video; 
FILE *fp, *fopenO; 

char file_name[STRLENJ, hostname [STOLEN]; 
int x, y, width =Size(video,frame->channel,0) > 
height = Size(video,frame- > channel, 1); 
struct passwd *pswd; 
long clock; 

Dp^intf( ,, PostScript\n ,, ); 

sprintf(file_narae, " %s%s/%s.ps\0" .global- > home, POST_DIR, video- > name); 
fp - fopen(file_name f "w"); 
fprintf(fp f " % % !PS-Adobe-l .0\n n ); 
pswd = getpwuid (getuid 0); 

(void) XmuGetHostname (hostname, sizeof hostname); 
fprintf(fjp f "%%% ^Creator %s: %s (%s)\n" f hostname.pswd- > pw_name, 
pswd->pw_gecos); 

fprinif(fp, " % % % %Title: %s\n\ video- > name); 
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fprmtf(fp,"%%%%BoundingBox: 0 0 %d %d\n",width,heignt); 

fprintf(fp/%%%%CrearionDate: %s",(time (&dock), ctime (&clock))); 

fprintf(fp, " % % % %EDdCommems\n"); 

fprintf(fp,"%d %d scale\n",width.height); 

fprintf(fp,"%d %d 8 image j)rint\n",widih,height); 

GetFrame(video, frame- > frame); 

for(y=0;y<height;y++) { 

for(x=0;x<width;x++) { 
int X, Y, oct, data; 



if (video- > trans. type = =TRANS_Wave) { 
Cvtlndex(x,y,width,height, video- > trans.wavelet.spacefOJ.&X.&Y.&oct); 



data = 128 +Round(video- > datafframe- > channel %3][frame- > frame]fY s video- > size[0] + 
X]*(oct= = video- > trans.wavelct.spacc[0]?l:4),video-> precision); 

}else 

data = 128 +Round(video- > datalframe- > channel %3][frame- > frame] [y* video- > size[0] + 
x], video- > precision); 

fprintf(fp, " %02x",data < 0?0:data > 235?255:data); 

} 

fprintf(rp,*\n-); 

> 

FreeFrarae(video f frame- > frame); 
fclose(fp); 

} 

void Spectnim(w,closure,can_data) 



Widget w; 

caddr_t closure, call_data; 
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{ 

Frame frame = (Frame)closure; 

Display •dpy=XtDisplay(global- > toplevel); 

XColor xcolor[2], falsecolor; 

int i; 

Colormap 

cmap=ChanjoelCmap(frame- > channel, frame- > video- > type, frame- > video- > gamma); 

Dprintf("Spectnim\n"); 

falsecolor .flags - DoRed | DoGreen | DoBlue; 

XSynchroni2e(dpy,True); 

for(i=0;i<2+global->levels;i++) { 

if (i> 1) XStoreColorCdpy.cmap.&xcolorfi&l]); /* Restore old color */ 
if (i< global- > levels) { 

xcolorfi&l ]. pixel =i; 
XQucryColor(dpy ,cmap,&xcolor[i& 1 ]); 
falsecolor.pixel=i; 

fal secolor . red = xcolorfiA 1 ] . red + 325 12 ; 
falsecolor.green=xcolor[i&l].green+32512; 
falsecolor. blue =xcolor(i&l].blue +32512; 
XStoreCoior(dpy,cmap,&falsecolor); 

} 

> 

XSynchronize(dpy,False); 

} 
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source/icon3.c 



/* 

Create Icons/Menus and set Callbacks 

*/ 

^include "../include/xwave.h" 
/* Function Name: Findlcon 

* Description: Finds IconRec entry from name in global icon array 

* Arguments: icon_name * name of icon bitmap 

* Returns: pointer to IconRec with the same name as icon_name 
•/ 

Icon FindIcon(icon_name) 
String icon_namc; 

{ 

int i; 

Icon icon = NULL; 

for (i =0;i< global- > no Jcons;i++) 

if (!strcmp(global-> icons[i].name,icon_name)) icon=&global-> icons[i]; 
return(icon); 

} 

void FillForra(parent,number f items, widgets, callbacks) 



int 



number; 
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Fonnltem items!]; 

Widget parent, widgets[]; 

XtCallbackRec callbacks!]; 

{ 

Arg args[10]; 
int i, call_i=0; 

for(i=0;i<number;i++) { 

int argc=0, *view=(im *) items [i]. hook; 
char text(STRLEN]; 
float top; 

Numlnput num-(NumInput)items[i].hook; 
Floatlnput fit »(FloatIaput)iteins[i]. book; 
Message msg «= (Message)items[i] .hook; 
WidgetClass 

dass[15] = {labclWkigetClass,coiimiajKiWidgetCIass,comm 
tClass, 

menuBunonW id getClass , menuButtonWidgetClass , vie wpon WidgetClass, toggle WidgetClass 

< 

cooimajidWidgetClass,comjnajidWidgetClass,conmiaiKJWidgetClass,labelWidgetClass, 

scrolIbarWidgetClass,labeiWidgetClass,formWidgetClass}; 
Boolean 

call[15]={False,True,True,False,False,False,False,True,True,True,True.False,False,Fals 
e, False); 

if (items[i] . fromHoriz! =0) { 

XtSetArg(ajgs[argc],XtNfromHori2,widgets[items[i].frornHoriz-l]); 

argc+ + ; 

} 
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if (items[i].fromVen!=0) { 

XtSciArgCargsIargcJ.XiNfromVen.widgeisfitcmsfiJ.froraVcn-l]); 

argc + + ; 

} 

swiich(items[i].type) { /* Initialise contents */ 
case FW^yn: 

items [i] . contents = '(Boolean *) items [i] . hook? " confinn " : "cancel " ; 
break; 
case FW_up: 

itemsfi] .contents = "up" ; 
break; 
case FW_down: 

items [i]. contents == "down"; 

break; 
case FW_inieger: 

sprintf(text,num- > format, *num- > value); 

items[i] .contents = text; 

break; 
case FW_float: 

sprintf(text,flt- > format, ♦fit- > value); 

itemsfi] . contents = text; 

break; 

switch(items[ij.rype) { /* Set contents */ 

case FWJabcI: case FW_command: case FW_button: case FW integer: 
case FW float 

XiSetAig(args(argc],XtNlabe],items(i].coDtenis); argc+ +; 
break; 

case FW_down: case FW_up: case FW_yn: case FWjoggle: case 
FW_icon: case FWJconJrotton: { 

Icon icon=FindIcon(iteras[i]. contents); 
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if (icon == NULL) { 

XtSetArg(args[aigc] .XtNIabel. itcms[i] .contents); argc + + ; 

} else { 

XtSetArg(args[argc] ,XtNbitraap,icon- > pixmap); argc + + ; 
XtSetArg(args[argc],XtNheight,icon-> height+2); argc + +; 
XtSetArg(args[argc],XtNwidth,icon- > widtn+2); argc + + ; 

} 

} break; 

} 

switch(iicras[i].typc) { /* Individual set-ups */ 
case FW_text: 

XtSetArg(args[argc],XiNstring t msg- > info.ptr); argc + + ; 
XlSetArg(args[argc] t XiNeditType,msg- > edit); argc + + ; 
XtSetArg(aigs[argc] > XtNuseStringInPlace,True); argc + + ; 
XtSetArg(args[argc] t XtNlength,msg- > size); argc + + ; 
break; 

case FW_button: case FWjcon_button: 
XtSetArg(args[ajgc],XtNmenuN 

argc + + ; 

break; 
case FWjoggle: 

if ((ini)items[i].hook- =0) { 

XtSetArg(args[argc],XtNradioData f l); argc+ + ; 
} else { 

caddr_t radioData; 

Arg radioargs[l]; 

Widget radioGroup = widgets[(int)items[i] .hook- 1 J ; 

XtSetArg(radioargs[0] f XiNradioData ( &radioData); 
XtGet Values(radioGroup , radioargs, ONE) ; 

XtSetArg(args[argc],XtNradioData,(caddrj)((int)radioData + 1)); argc + + ; 
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XtSetArg(args[argc],XtNradioGroup,radioGroup); argc + 

} 

break: 
case FW_scroll: 

top = (noat)(*flt- > value-fit- > min)/(flt- > max-flt- > min); 
XtSetArg(argslargc] .XtNtopOfThumb.&top); argc + + ; 
XtSetArg(argsIargc] ,XtNjumpProc,&callbacks[call_i]); argc-l- + ; 
while(caUbacks[caJJ_i] . callback! = NULL) call_i + + ; 
call_i+ + ; 

break; 
case FW_view: 

if (view! =NULL) { 

XtSetArg(args[argc],XlNwidth,view[01); argc++; 
XlSeiArg(args[argc],XtNbeight,view[l]); argc+ + ; 

} 

break; 

> 

widgets[i] = XtCreateManagedWidget(iteins[i] .iBune,class[(int)iteTns[i].rype],parent,args, 
gc); 

switch(ii£ms[i].type) { /* Post processing */ 
case FWjoggle: 

if (itcms[i] .hook = = NULL) { /* Avoids Xaw bug ♦/ 

XtSetArg(args[0] .XtNradioGroup, widgets[Q); 

XtSetValues(widgets[i] .args.ONE); 

} 

break; 
case FWjext: { 

XFontSmict "font; 
Arg text_args[l]; 

msg- > widget = widgeis[i] ; 
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XawTextDisplayCaret(msg- > widget, msg- > edii! = XawtexiRead); 

XtSetArg(text_args[0],XtNfoni,&fom); 

XtGetValues(widgets[i],text_args,ONE); 

argc=0; 

if (msg- > edit ==XawiextRead && msg-> info.ptrlOJI^Un 
XtSetArg(args[argc],XtNwidth,4+^ 

else 

XtSetArg(args(argc],XtNwidth,4 + msg- > cols*(font- > max_bounds .width + font- > min_bo 
unds.width)/2); 

argc+ + ; 

XtSetArg(args[argc] f XtNhcight f 1 +msg- > rows*(font- > max_bounds . ascent + font- > max_ 
bounds.desccni)); argc + + ; 

XtSetValues(widgets[i] ( args, argc); 

} break; 
case FW_button: 

XtOvemdcTransladons(widgeis[i],XlPar5eTranslationTable(" <BtnDown> : resetO 

NameButionO PopupMenuO")); 

break; 
case FW_down: 

if (*num- > value == num- > min) XtSetSensitive(widgets[i] f False); 
num- > widgets[0] - widgets[i] ; 
break; 
case FW_up: 

if (*num- > value = = num- > max) XtSetSensitive(widgets[i], False); 

num- > widgetsfl] = widgets[i]; 

break; 
case FW_imeger: 

num- > widgets [2] = widgets [i]; 

break; 
case FW scroll: 
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flt-> widgets(l] = widgets[i]; 

XawScroUbarSetThumb(widgets[i] f top,0.05); 
break; 
case FW_float: 

fit- > widgets[0] = widgets[i]; 
break; 

} 

if (call((int)items[i].type]) { /* Add Callbacks •/ 
if (caUbacksfcaUJ] callback!- NULL) 

XtAddCaJlbacks(widgets[i],XtNcallback,&callbacks(call_i]); 
whilc(callbacks[call_i] .callback! * NULL) callj + + ; 
call_i++; 

} 

} 

} 

Widget SbeilWidget(nazDe,pareni,type t cmap t caUbacks) 

String name; 
Widget parent: 
SbellWidgetType type; 
Colormap cmap; 
XtCallbackRec callbacks!]; 

{ 

Widget sheU; 
Arg args(3]; 
Position x, y; 
Dimension heights -2; 
int argc=0; 
WidgetClass 

class[] = { iransientShell WidgetClass.transientShellWidgetClass.topLevelShellWidgetClass.p 
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ullRjghiMcnu WidgctCIass} ; 

if (type==SW_below jj iype= =SW_over) { 

XtTranslateCoords(parem,0,0,&x,&y); 
if (type = = SW_below) { 

XtSetArg(args [0] ,XtNheight,&he ight) ; 
XtGctVahies(parcnt,args,ONE); 

} 

XtSetArg(args[argc],XtNx,x); argc+ + ; 
XtSeiArg(args[argc],XiNy,y+height+2); argc + + ; 

} 

if (cmap!-NULL) { 

XtSetArg(aigs[argc],XtNcolormap,cmap); argc++; 

} 

shell = XtCreatePopupShell(naine,class[type] ,pareni t args t argc); 

if (callbacks! = NULL) XtAddCallbacks(shcU,XtNdestroyCal]back f caUbacks); 

retuni(sbell); 

} 

Widget Format Widget(name , parent) 

String name; 
Widget parent; 

{ 

retum(XtCreateManagedWidget(name.formWidgetClass,parent 1 NTTT T , 7 FfrQ)); 

} 

void FillMcnu(parcnt,number,items t widgets, callbacks) 



int number; 
Menultem iiemsf]; 
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Widget parent, widgetsQ; 
XtCallbackRec caJlbacksQ ; 



Arg args[4]; 

int i, call_i=0; 

Icon icon = FindIcon(" right"); 

for(i=0;i<number;i++) { 
int argc=0; 

XtSctArg(args[argc] t XtNlabcI f itcms[iJ. label); argc+ + ; 
if (itemsfi] . widgetClass = = smeBSBprObjectClass) { 

X LSetArg (arg s[aj^c],XtNmenuNamcJiems[i]. hook); argc+ +; 

XtSetArg(args[argc] 9 XtNrightMargin v 4 + icon- > width); argc + + ; 

XtSetArg(args[argc] v XtNrightBitznap,icon- > pixmap); argc+ +; 



widgets[i] = XtCreatcManagcdWidgct(itcms[i].namc # items [i] .widgetClass, parent, args,argc) 

if (items[i].widgetClass- »smeBSBObjectClass) { /* Add Callbacks ♦/ 
XtAddCallbacks(widgets[i] > XtNcallback,&caUbacks(caU_i]); 
wbilc(callbacks(call_n. callback! = NULL) caJl_i+ +; 
caJl_i++; 

} 

} 

} 

* void SimpleMenu(w,closurc t call_data) 



Widget 
caddr_t 



w; 

closure, call data; 
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{ 

ini *hook = (int *)closure, no_child, child, argc = 0; 
Widget menu = XtParent(w) t button; 
WidgetList children; 
char * label; 
Arg args[31; 

XtSetArg(args[argc],XtNlabel,&label); argc + + ; 
XtGetValues(w,args t argc); argc=0; 
XtSetArg(args[argc] t XtNchildren f &children); argc+ + ; 
XtSetArgCargslargcJ^tNnuinChildren^no^child); argc+ +; 
XtSctArg(args[argc] f XlNbutton,&buaon); argc + + ; 
XtGetValues(menu f args,argc); argc=0; 

for(child=0;children[child]!=w && child <no_child;) child + + ; 
if (w!=childrcn[child]) Epruuf( w SimpleMenu: menu errorXn"); 
•book = child; 

XtSetArg(args[argcJ,XtNlabel,label); argc+ + ; 
XtSetValues(button,args t argc); 

} 

void NumIncDec(w t closurc,calljiata) 

Widget w; 

caddrj closure, call_data; 

{ 

Numlnpui data = (Numlnput)closure; 

Arg args[IJ; 

char text(STRLEN]; 

♦data- > value + = (w- =data- > widgets[0])?-l : I ; 
sprintf(text,daia- > format, *data- > value); 
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if (data- > min = =»daia-> value) Xt£etSensitive(data-> widgetsfO], False); 
else XtSetSeosirive(data-> widgets(0],True); 

if. (data- > max - = *data- > value) XtSetSensitive(data- > widgetsfl], False); 
else XtSetSensiiive(data- > widgets(l],True); 
XtSetArg (axgs [0] , X tNlabel . text) ; 
XtSetValues(data- > widgets[2], axgs, ONE); 

} 

void FloatIncDec(w,closure,call_data) 

Widget w; 

caddx_t closure, call_data; 

{ 

Floatlnput data = (FloatInput)closurt; 

Arg args[l]; 

char tcxt(STRLEN]; 

float percent-* (float *)cal]_data; 

♦data- > value =data- > min + (doubIe)percent*(data- > max-data- > min); 
sprintf(text, data- > format, *data- > value); 
XtSetArg(args[OJ,XtNlabel,text); 
XtSetVa]ues(data- > widgets[0] f args,ONE); 

} 

/* Function Name: Change YN 

* Description: Toggle YN widget state 

* Arguments: w - toggling widget 

* closure - pointer to boolean state 

* calljiata * not used 

* Returns: none. 
*/ 
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void Change YN(w,closure,call_data) 



Widget 



w; 



caddr t 



closure, call data; 



Boolean 



*bool = (Boolean *)closure; 



Icon icon = FindIcon((*bool != Trae)?"confirm": "cancel"); 
Arg args[4]; 
int argc=0; 

♦bool = ! *bool; 

XtSetArg(axgs[argc] f XtNbitmap f icon->pixmap); argc + + ; 
XtSetArg(args[argc] ( XtNheigta,icon-> height+2); argc+ +; 
XtSetArg(args[argc] f XtNwidth,icon-> width+2); argc + + ; 
XtSctVaJues(w,args t argc); 



} 



int 



TextWidth(max t text t font) 



int 



max; 



String text; 
XFontS tract *font; 



int i=0* j; 



while(texi[i]! = , \0 , ){ 
int width; 



for(j=0:tcxt[i+jj! = '\0* && ttxt[i+j]! = , \n';) j ++; 
width = XTextWidth(font,&text[i] j); 
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max = max > width?max : width; 

/••••••••••• ••••»•• »•»»•••».•»».•.»»......,..,..»» 

Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts, 
and the Massachusetts Institute of Technology, Cambridge, Massachusetts. 

All Rights Reserved 

Permission to use, copy, modify, and distribute this software and its 
documentation for any purpose and without fee is hereby granted, 
provided that the above copyright notice appear in all copies and that 
both that copyright notice and this permission notice appear in 
supporting documentation, and that the names of Digital or MIT not be 
used in advertising or publicity pertaining to distribution of the 
software without specific, written prior permission. 

DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING 

ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL 

DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL 
DAMAGES OR 

ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR 
PROFITS. 

WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER 
TORTIOUS ACTION, 

ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 
THIS 

SOFTWARE. 

•••*•• * .»»,..»••,..».•...».,.,„/ 
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" Image. c - Image widget 

* 

"/ 

^define XtStrlen(s) ((s) ? strlen(s) : 0) 

^include <stdio.h> 
^include <ctype.h> 
^include <Xll/IntrinsicP.h> 
^include < XI 1/StringDefs.b > 
^include <X11/Xaw/Xawlnit.h> 
^include "../tnclude/ImageP.h" 

jfdefine streq(a,b) (strcmp( (a), (b) ) = = 0) 

/••••• ••••• ••••••••••••••••••••••••••»•• 

* 

• Full class record constant 
* 

•••••••••• ••»•••• / 

/* Private Data */ 

static char defaultTranslationsQ = 
" <BtnlDown> : notify()Vn\ 
<BtnlMotion> : notityO\n\ 
<BtnlUp>: notifyO"; 
#define offset(field) XtOffsct(ImageWidget, field) 
static XtResource resources [) = { 

{XtNbitmap, XtCPixmap, XtRBitmap, sizeof(Pixmap), 



WO 94/23385 



PCT/CB94/00677 



- 145 - 

offsct(image.pixniap), XtRImmediate, (caddrj)None} f 
{XtNcallback, XtCCallback, XtRCallback, sizeof(XiPoimer), 
offsetfimage. callbacks), XtRCallback, (XtPointer)NULL} , 



static void Initialize(); 
static void ResizeO; 
static void Re di splay 0; 
static Boolean SetValuesO; 
static void ClassInitializeO; 
static void DestroyO; 

static XtGeomctryRcsuJt QueiyGeometiyO; 
static void NotifyO. GctBitznapInfoO; 

static XtAcdonsRcc actionsListQ = { 

{'notify", Notify}, 

>; 

ImageClassRcc imagcClassRcc = { 
{ 

/* corc^class fields */ 

#define superclass (AsimpleClassRec) 



/♦ superclass 


*/ 


(WidgetClass) superclass, 


1* classjiame 


•/ 


"Image" f 


/* widget_size 


•/ 


sizeof(ImageRec), 


/* class ^initialize 


*/ 


Classlnitialize, 


/* class_partjnitialize 


*/ 


NULL, 


/♦ class_inited 


*/ 


FALSE, 


/♦ initialize 


*/ 


Initialize, 


/* initialize_hook 


•/ 


NULL, 


/• realize 


V 


XtlnheritRealize, 
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/ dllJULLD 




actions List 


/ PUlP awLiuud 


/ 


XtNiimberf actions I ist^ 


/• resources 


*/ 


resources. 


/* num resources 


/ 


a Lriuni ocr( resources j , 


/* xnn_class 


*/ 


N U LU^l U AKJv, 


/* compress_niouon 




*/ TPTTP 


/* compress_exposure 




IKUt, 


/* compress_entcrleave 


/ 


ttji re 


/* visible_Lnterest 




*/ FALSE, 


/* destroy 


•/ 


Destroy, 


/• resize 


*/ 


Resize, 


/• expose 


•/ 


Redisplay, 


/* set_values 


*/ 


SctValues, 


/* set_values_hook 




•/ NULL, 


/* set_values_almost 


•/ 


XtlnhentSctValuesAlmost, 


/* get_values_book 




*/ NULL, 


/* acccpt_focus 


•/ 


NULL, 


/• version 


•/ 


Xtvcrsion, 


/• callback ^private 


•/ 


NULL, 


/• tmjable 




*/ defaultTranslatioos, 


/* qucry_geometry 




•/ Query Geometry, 


/* display_accelerator 


*/ 


XtlnheritDisplayAcceleratoi 


/* extension 


*/ 


NULL 



/• Simple class fields initialization */ 
{ 

/* change_sensitive */ XtlnheritChangeSensitive 

} 

}; 

WidgetClass imageWidgetClass = (WidgetClass)&imageClassRec; 
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* Private Procedures 



static void ClassInitiaJize() 
{ 

extern void XmuCvtStringToBitmapO; 
static XtConvertArgRec screenConvertArgQ = { 

{XtWidgetBaseOffset, (caddrj) XtOffset(Widget, core. screen), 
sizeof(Screen *)} 

}; 

XawInitializeWidgetSetO; 

XtAddConvener("String\ "Bitmap" f XmuCvtStringToBitmap, 
screenConvertArg, XtNumber(screenConvenArg)); 
} /* Classlnitialize ♦/ 

/* ARGSUSED ♦/ 

static void lnitialize(request ( new) 

Widget request, new; 

{ 

ImageWidget iw « (Image Widget) new; 

DprintfCImagcInitializeVn"); 

if (iw-> image. pixmap== = NULL) 

XtErrorMsg( " NoBitmap * , " asciiSourceCreate " , " XawError " , 
"Image widget has no bitmap. \NULL,0); 
-r GetBitmapInfcKnew); 

if (iw- > image. map_width < =0 1 1 iw-> image. map_height< =0) 

X tErrorMsg( " NoDimension" t "asciiSourceCreate " t "XawError" , 
"Image widget illegal map dimension. \NULL f 0); 
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if (iw-> core. width = = 0) iw- > core. width = iw-> imagemap width; 
if (iw-> core. height ==0) iw- > core. height = iw-> image. map_height; 

(*XtClass(new)- > core_c lass, resize) ((Widget)iw); 

} /* Initialize ♦/ 

/* 

* Repaint the widget window 
*/ 

/♦ ARGSUSED */ 

static void Redisplay(w, event, region) 
Widget w; 
XEvem *event; 
Region region; 

{ 

Image Widget iw = (ImagcWidgct) w; 

DprintfCImageRedisplayta"); 
if (region != NULL && 
XRectInRegion(region 9 0 9 0, 

iw-> image. map_width, iw-> image. map_height) 
= = RectangleOut) 
return; 

XCopyArea( 

XtDisplay(w) f iw-> image.pixmap, XtWindow(w), 
DefaultGC(XtDisplay(w) t XDefauJtScreen(XtDisplay(w))) l 

0 f 0, iw-> image. map_width, iw- > image.map_height t 0, 0); 

} 
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static void Resize(w) 
Widget w: 

{ 

ImageWidget iw = (ImageWidget)w; 
Dprinrf( H ImageResi2e\n B ); 

} 

/* 

* Set specified arguments into widget 
*/ 

static Boolean SetValues(current, request, new, args, num args) 
Widget current, request, new; 
ArgList args; 
Cardinal *num_args; 

{ 

Image Widget curiw = (Image Widget) current; 
ImageWidget reqiw = (Image Widget) request; 
Image Widget newiw = (ImageWidget) new; 
Boolean redisplay «= False; 

/* recalculate the window size if something has changed. */ 

if (curiw- > image. pixmap != newiw- > image, pixmap) 
XFreePixmap(XtDisplay (curiw), curiw- > image, pixmap); 
GetBhmapInfo(newiw); 

newiw- > core, width = newiw- > image.map_width; 
newiw- > core, height = newiw- > image. map_heighl; 
redisplays True; 



return redisplay | j XtIsSensitive(current) != XtlsSensitive(new); 

} 
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sialic void Destroy(w) 
Widgci w; 

{ 

ImagcWidgci Iw = (ImageWidget)w; 
Dprinrf("ImageDesiroy\n w ); 



static XtGeometryResult QueryGeometry(w t intended, preferred) 
Widget w; 

XtWidgetGeomeiiy *intended, *preferTed; 

{ 

register ImageWidget iw = (ImageWidgei)w; 

preferred- > request_mode = CWWidth | CWHeight; 
preferred- > width ■ iw-> image. map_width; 
preferred- > height = iw-> image. mapjieight; 
if( ((intended- >rcquestjnode& (CWWidth | CWHeighl)) 
= = (CWWidth | CWHeighl)) && 
intended- > width = = preferred- > width 8c& 
intended- > height = = preferred- > height) 
return XtGeometry Yes; 
else if (preferred- > width =« w-> core. width && 
preferred- > height = = w-> core. height) 
return XtGeometryNo; 

else 

return XtGeometry Almost; 



static void GeiBitmapInfo(w) 
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Widget w; 

{ 

Image Widget iw = (Image Widget)w; 
unsigned int depth, bw; 
Window root; 
int x, y; 

unsigned int width, height; 
char bufTBUFSIZ]; 

if (iw-> image. pixxnap != None) { 
if 

(!XGetGeometry(XuDisplayOfObject(w),iw- > image.pixmap,&root,&x.&y,&width,&heig 
ht,&bw,&depth)) { 

sprintf(buf, "ImageWkJget: %s %$ \"%s\\", "Could not", 
"get Bitmap geometry information for Image ", 
XiName(w)); 

XtAppError(XtWidgetToAppIicationContext(w) t buf); 

} 

iw- > image ,map_width= (Dimension) width; 
iw- > image. map_height=(Dimension)height; 

} 

i* 

* Action Procedures 
♦/ 

static void Notify(w,event,params,num_params) 

Widget w; 
XEvent *evenr; 
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String •params; 

Cardinal *num_params; 

{ 

Image Widget iw = (IraageWidget)w; 

XBunonEvem *burtone vent = &evem- > xbunon; 

int posn[2] = {bunonevent- > x,bunonevent- > y } ; 



if (iw-> image. map_width< =posn[0] || posn[0]<0 

iw-> image. map_height< =posn[l] 1 1 posn[l]<0) Dprintf("No 
ImageNotify\n H ); 
else { 

I^rintf("IraageNotify\n"); 
XtCa]lCallbackList(w,iw- > image.calIbacks t posn); 

} 

} 
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source/lmpKlicsTestSA.c 



/* 

Test harness for KlicsFrameSAO in Klics.SA 

»/ 

#include "xwave.h" 
^include "KHcsSA.h" 



void ImpKIicsTestSA(w t closure.call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

int size Y = SAWIDTH *SA_HEIGHT, 

sizcUV = SA_WTDTH*SA_HEIGHT/4; 

short *dst[3] «= { 

(short •)MALLOC(si2eof(short)»si2eV), 
(short *)MALLOC(si2eof(shon)»si2eUV), 
(short *)MALLOC(sizeof(short)»si2eUV), 

}. *src[3J; 

Video video «= (Video)MALLOC(sizeof(VideoRec)); 
inr i, z; . 

char fUe_name[STRLEN] ; 

Bits bfp; 

Boolean stillvid; 



strq)y(video- > name.((XawListReturnStnict •)call_data)- > string); 
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spriDtf(file_name." %s%s/7cs7cs\0",global-> home. KLICS_SA_DER, video- > name. KLICS 
_SA_EXT); 

b^p=bopen(file_iiame,"r"); • 

bread(&stillvid,l,bfp); 

bread(&video- > size[2],sizeof(int)'8,bfp); 

video- >data{0]= (short ♦*)MALLOC(sizeof(shon •)*video->size[2J); 

video- >data[l]=(sbon ••)MALLOC(sizeof(short *)*video->size(2]); 

video- > data[2] = (shon •*)MALLOC(sizeof(short *)»video- > size{2]); 

video- > disks False; 

video- > type =YUV; 

video- > size[0] =SA_ WIDTH; 

video- > size[l] =SA_HEIGHT; 

video- > UVsample[0] = 1 ; 

video- > UVsamplef 1] — 1 ; 

video- > trans .type = TRANS_None; 

for(z=0;z< video- > size[2];z+ +) { 

NewFrame(video,z); 

src[0] = video- > data[0][z]; 

src[l] » video- > data[ 1 ][z]; 

src[2] = video- > data[2][z]; 

KlicsFraroeSA(z= =0 1 1 stiIlvid?STILL:SEND,src,dst,bfp); 

SaveFrame(video.z); 

FreeFrame<video,z); 

} 

bclose(bfp); 

video- > next = global- > videos; 
global- > videos = video; 
XtFree(dst[0]); 
XiFree(dstIl]); 
XtFree(dst[2]); 
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/• 

* Importing raw Klics binary files 
♦/ 

^include "xwave.h" 
^include "Klics.b/ 

extern Bits bopenO; 

extern void bcloseO, breadO, bwriteO, bflushO; 

extern void SkipFrameO; 

extern int HurTReadO; 

extern Boolean BlockZeroO; 

extern void ZeroCoeffsO; 

extern int ReadlntO; 

extern int DecideO; 

extern double DecideDoubleO; 

Boolean BoolToken(bfp) 

Bits bfp; 

{ 

Boolean token; 

brcad(& token, 1. bfp); 
return(token); 

} 
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void HuffBlock(block,bfp) 

Block block; 
Bits bfp; 

{ 

irn X, Y; 

f or(X = 0;X < BLOCK;X + + ) for(Y = 0; Y < BLOCK; Y + + ) 
block[X][Y] =HuffRcad(bfp); 

} 

void PrevBlock(old,addr,x,y,z,oct,sub,channcl,ctrl) 

Block old, addr; 

tut x, y, z, oct, sub, channel; 

CompCtrl Ctrl; 

{ 

int X, Y; 

for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) { 

addr[X][Y]=Access((x< < 1)+X,(y< < l)+Y,oct,sub,Si2e(ctii->dst,chaiincl.O)); 
old[X] m - Ctrl- > dst- > data[channe 1] [2] [addr[X] [Y]} ; 

) 

) 

void DeltaBlock(ncw,old,delta,step) 



Block new, old, delta; 
int step; 



WO 94/23385 



PCT/GB94/0W77 



- 157- 

{ 

int X, Y; 

for(X=0:X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) 

new[X][Y] =old[X][Y] +dclta[X][Y]*siep+(delta[X][Y]! =0?negif(delta[X][Y] < 0,(siep-l) 
>>1):0); 

} 

void UpdateBlock(new,addr,z,chaimel,ctrl) 

int z, channel; 
Block new, addr; 
CompCtrl cirl; 

{ 

int X, Y; 

for(X =0;X < BLOCK;X+ +) forfY =0;Y < BLOCK; Y+ +) 

Ctrl- > dst- > data[channel]lz][addr(X]rYl] =(shon)newpC][Y]; 

} 

void ReadKlicsHeader(cni) 

CompCtrl Ctrl; 

{ 

KlicsHeaderRec head; 
int i; 

Video dst = Ctrl- > dst; 



ftead(&head.sizeof(KlicsHeaderRec), 1 ,ctrl- > bfp- > fp); 
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Ctrl- > siillvid = head, still vid; 

Ctrl- > auto jj = head . auto_q ; 

Ctrl- > buf_switch = head.buf_switch; 

Ctrl- > quant_const = head . quant_const ; 

Ctrl- > thresb_const = head .thresh_const; 

ctrl- > cmp_const = head.cmp jronst; 

ctrl- >fps= head. fps; 

for(i=0;i<5;i++) ctrl- > base Jactors(i] = head.base_factors[i]; 

ctrl- > diag_factor = bead.diag_factor; 

ctrl- > chrome_factor = head.chrome_factor; 

ctrl* > decide = head. decide; 

strcpy(dst- > name.ctrl- > bin_name); 

dst- > type = head, type; 

dst- > disk- bead. disk; 

dst- > gamma = bead. gamma; 

dst- > rate = head . rate; 

dst- > starts head, stan; 

for(i=0;i<3;i++) dst->size[Q=head.size[i]; 

fpr(i~0;i <2;i+ +) dst- > UVsample[i]=head.UVsample[fl; 

dst- > trans = head. trans; 

dst- > precision -head, precision; 

for(i =0;i < (dst- > type = = MON071 :3);i + +) 

dst- >data[i]= (short ♦*)MALLOC(dst->si2e[2]*si2eof(short *)); 

} 

void WriteKlicsHeader(ctrl) 
CompCtrl ctrl; 



{ 

KlicsHeaderRec 
int i; 



head; 
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hcad.stillvid = Ctrl- > stillvid; 

head . auto _q = Ctrl- > auto_q; 

head . buf_s witch = ccrl- > buf_switch; 

head . quant_const =ctrl-> quant_const; 

head. thresh_const= Ctrl- > thresh_const; 

head. crap_const= Ctrl- > cmp_const; 

bead. fps= Ctrl- >fps; 

for(i=0;i < 5;i + •+ ) head.base_factors[i] =ctrl- > base_factors[i]; 

bead. diag_f actor = Ctrl- > diag_factor; 

head . chrome_f actor = Ctrl- > chrome_factor; 

head, decide = Ctrl- > decide; 

head, type = Ctrl- > dst- > type; 

head.disk =ctrl- > dst- > disk; 

bead . gamma = Ctrl- > dst- > gamma; 

head, rate = Ctrl- > dst- > rate; 

head . start = Ctrl- > dst- > start; 

for(i=0;i<3;i++) head.size[i]=ctri->dst->size[i]; 

for(i=0;i < 2;i+ +) head.UVsample[i] =ctrl- > dst-> UVsample[i]; 

head, trans -ctri- > dst- > trans; 

head.precision=ctrl- > dst- > precision; 

f\vrite(&head,sizcof(KlicsHeadcrRcc) f 1 t ctrl- > bfjp- > fjp); 

} 

void KlicsTree(mode,x f y f 2,oct,sub,chaimel,ctrl) 

int mode, x, y, z, oct f sub, channel; 
CompCtrl ctri; 

{ 

Block addr, old, new, delta, zero J)lock={ {0,0}, {0,0}}; 

double norms [3] = {ctrl- > quant_const,ctrl- > thresh_const,ctrl- > cmp_const}; 

int step; 
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PrevBlcx:k(old,addr,x,y,z,oct,sub,chanDel.ctrl); 
if (mode! = VOID) { 

CalcNonnals(ctrl,oct,sub,chajinei, norms); 
step = nonns(0] < 1 .071 :(int)nonns(0] ; 
if (mode == STILL jj BlockZero(old)) { 

if (BoolToken(ctrl->bfp)) { /* NON_ZERO_STILL •/ 
Dprintf("NON_ZERO_STILL\n"); 
HuffBlock(delta,ctrl- > bfp); 
DeltaBlock(new,old,delta,siep); 
UpdateBlock(new,addr,2,cbannel,ctrl); 

}else{ 

Dprintf("ZERO_STILL\n"); 

mode -STOP; /* ZERO_STILL */ 

} 

}else{ 

if (!BoolToken(ctrl->bfp)) { /* BLOCK_SAME */ 
Dprintf("BLOCK_SAME\n"); 
mode = STOP; 

} else { 

if (!BooIToken(ctrl- > bfp)) { /• ZERO_VID •/ 

DprintfTZEMMTDXn"); 

ZeroCoeffs(ctrl- > dst- > data[channel][z] ,addr); 

mode = VOID; 
} else { /• 

BLOCK CHANGE •/ 

Dprinrf("BLOCK_CHANGE\n"); 
HuffBlock(delta.ciri- > bfp); 
DeltaBlock(new,old,dclta,step); 
UpdateBlock(new,addr,z,chanoel,ctrl); 

} 

} 

} 



WO 94/23385 



PCT/GB94/00677 



- 161 - 

}else{ 

if (BlockZero(old)) mode = STOP; 
else { 

ZeroCoeffs(ctrl- > dst- > data[chanDel][z],addr); 
mode = VOID; 

} 

} 

if (oct>0 Sl& mode! = STOP) { 

Boolean decend - mode = = VOID?True:BoolToken(ctrl- > bfp); 
int X, Y; 

Dprintf("x= %d, y= %d, oct= %d sub=%d mode 
%d\n"\x,y,oct,sub,mode); 

if (decend) { 

if (mode! = VOID) Dprintf("OCT_NON_ZERO\n"); 
for(Y=0;Y < 2;Y+ +) for(X=0;X < 2;X+ +) 

KJicsTree(mode,x*2 +X,y*2 + Y,z,oct-l ,sub,channel,ctrl); 
} else if (mode! = VOID) Dprimf("OCT_ZERO\n"); 

} 

} 

void KlicsLPFOnode.z.ctrl) 

CompCtrl Ctrl; 
int mode, z; 

{ 

Block addr, old, new, delta; 

int channel, channels = Ctrl- > dst- > type == MONO? 1:3, x, y, 
octs_lum=ctrl- > dst- > trans. wavelet.space[0], 

size[2] = {Size(ctrl->dst,0,0)> >octsJum+l,Size(ctrl->dst,0,l)> >octs_lum+l}; 
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for(y=0;y<size[l];y++) for(x=0;x<sue[0];x + +) { 
Boolean lpf_loc=True; 

if (mode! = STILL) { 

Ipfjoc = BoolToken(ctrl- > bfp) ; /* 
LPF_LOC_ZERO/LPF_LOC_NON_ZERO •/ 

Dprintf(" %s\n M ,lpf_loc?"LPF_LOC_NON_ZERO": "LPF_LOC_ZERO"); 
} 

if (Ipfjoc) for(channcl=0;channel< channels ;channel++) { 
int 

oc is= Ctrl- >dst-> trans. wa velct. spac«[ctrl- > dst-> type= =YUV && channel! =071:0], 

X, Y, step, value, bits=0; 

double 

norms[3] = {ctrl- > quant_const,ctrI- > thresh_const,ctrl- > cmp_const}; 

PrcvBlock(old,addr.x,y.z,octs-l,0,channel,ctrl); 
CalcNonnals(ctrl,octs-l ,0,channel,nonns); 
step = norms[0] < 1 .071 :(int)nonns(0]; 
if (mode* - STILL) { 
for(bits=0, 

value=((l < < 8+ctrl- > dst->precision)-l)/step;value! «0;bits+ +) 

value « value > >1; 
for(X=0;X < BLOCK;X+ +) for(Y=0;Y < BLOCK; Y+ +) 

deltapq[Y] =ReadInt(bits,ctrl- > bfp); 
DeltaBlock(new, old, delta, step); 
UpdateBlock(new,addx,z,channel,ctrl); 

}else{ 

if (BoolToken(ctrl- > bfp)) { /♦ 
LPF_ZERO/LPF_NON_ZERO *l 

Dprintf("LPF_NON_ZERO\n"); 
HuffBlock(delta,ctrI- > bfp); 
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DeltaBlock(new,o]d,delta,siep); 
UpdatcBlockdic w.addr.z , channel .Ctrl) ; 
} else Dprintf( ^ LPF_ZERO\n• , ); 



void KlicsFrame(ctrl.z) 



CompCtrl Ctrl; 
int z; 



Video dst=ctrl->dst; 

int sub, channel, x, y, mode=ctrl->stillvid 1 1 z==0?STILL:SEND, 
octs_lum=dst- > trans. wavelet. spacefO], 

size[2] = {Si2e(dst,0.0)> > 1 +octsJum,Size(dst,0,l)> > l+octsjum}; 

NewFrame(dst,z); 

CopyFrame(dst,z-l ,z,ctri- > stillvid 1 1 z= *=0); 
if (z! =0 && Ctrl- > autojj) { 



Ctrl- > quant_const+ =(double)(HISTO/2+ReadInt(HISTO_BITS,ctrl-> bfp)) - HISTOJ)E 
LTA'2 .0/fflSTO-HISTO_DELTA; 

Ctrl- > quant_const = Ctrl- > quant_const < 0.070.0: Ctrl- > quant_const; 

Dprintf("New quant %i\n",ctri->quant_const); 

} 

KlicsLPF(mode,z,ctrl); 

for(y=0;y<size[l];y++) for(x=0:x<size[0];x++) { 
if (BoolToken(ctrl- > bfp)) { 
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Dprintf( ' LOC AL_NON_ZER0\n " ) ; 

for(channel=0;channel<(dst->t>'p€= = MONO?l:3);channel+ +) { 
Lnt octs = dst- > trans. wavelet.space[dst- > type = = YUV 

&& channel! =O?l:0]; 

if (BoolToken(ctrl- > bfp)) { 

Dprintf( " CHANNEL_NON_ZERO\n"); 
for(sub= 1 ;sub < 4;sub+ + ) 

K]icsTrcc(mode,x t y,z,octs-l,sub,channcl.ctrl); 

} else Dprintf("CHANNEL_ZERO\n'); 

} 

} else Dprintf("LOCAL_ZERO\n'); 

} 

} 



void IraponK] ics( w , c losurc , call_data) 



Widget w; 

caddr t closure, call_data; 

{ 

char file_namc[STRLEN] ; 
CompCtrlRec Ctrl; 
int i, x; 

Ctrl .dst = (Video)MAIXOC(sizeof (VideoRec)) ; 
sin^y(ctrl.bin_name,((XawListRetuniStruct *)call_data)- > string); 

sprintf(nie_name," %s%s/%s%s\0",globaJ- > home,KLlCS_DIR,ctrl.bin_naine,KlJCS_EX 
T); 

ctrl.bfp= bopen(file_name, "r"); 
ReadKlicsHeader(&ctrl); 
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if (ctrl.dst->disk) SavcHeader(ctrJ.dst); 
for(z=0;z<ctrl.dst->size[2];z++) { 

if (z* = 0 || !ctrl.buf_switcb) KlicsFrame(&cirl.z); 

else { 

if (BoolToken(ctrl.bfp)) KlicsFrame(<fcctrl,z); 
else SkipFrame(ctrl.dst,z); 

} 

if(z>0){ 

SaveFrame(ctrl.dst,z-l); 
FrceFrame(ctrl.dst,z-l); 

} 

} 

SaveFrame(ctri.dst,ctrl.dst- > size[2]-l); 
FrceFrame(ctrl.dst,ctrl.dst- > size[2]-l); 
bclose(ctrl.bfp); 

ctrl.dst-> next = global- > videos; 
global- > vidcos=ctrl.dst; 
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source/ImponKJ icsS A . c 

•••—••••■•••••••••••/ 

/• 

* Importing raw Klics binary files 

* Stand Alone version 
•/ 

#include "KlicsSA.h" 

extern void ConvolveO; 

/* useful X definitions •/ 
typedef char Boolean; 
#define True 1 
Idefine False 0 
Idefine String char* 

extern int HuffReadSAO; 

extern Boolean BlockZeroSAO; 

extern void ZeroCoeffsSAfJ; 

extern int ReadlntSAO; 

extern int DecideSAO; 

extern double DecideDoubleSAO; 

Boolean BoolTokenSA(bfp) 
Bits bfp; 



{ 
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Boolean token; 

bread(&token,l,bfp); * 
return(token); 

} 

void HuffBlockSA(block,bfp) 

Block block; 
Bits bfp; 

{ 

int X, Y; 

for(X =0;X < BLOCK;X + +) for(Y=0; Y < BLOCK; Y+ +) 
block[X] [Y] = HuffReadSA(bfp); 

} 

void PrevBlockSA(old,addr,x,y,oct,sub,channel,dst) 

Block old, addr; 

int x, y, oct, sub, channel; 

short *dst(3); 

{ 

int X, Y; 

for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) { 

addr[X]rY]=AccessSA((x< < 1)+X,(y< <l)+Y,oct,sub,channcl); 
oldIX][Y] = dst[channel][addrIXl[Y]]; 

} 

} 
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void DeluBlockSA(ncw, old, delta. step) 

Block new, old. delta; 
int step; 

{ 

ini X, Y; 

for(X = 0;X < BLOCK ;X + + ) for(Y = 0; Y < BLOCK; Y++) 

> > 1):0); 
} 

void UpdateBlockSA(new,addx,chanDel,dst) 

int channel; 
Block new, addr, 
short *dst[3]; 

{ 

bit X, Y; 

for(X=0;X < BLOCK;X+ +) for(Y=0;Y < BLOCK;Y+ +) 
dst(channel][addrfX]rY]] =(shon)new[X]lY]; 

} 

void KliuTreeSACmode.xj.oct.sub.channel.dst.bfp.quani^coDSt) 



int 

shon 

Bits 



mode, x, y, oct, sub, channel; 

*dst[3]; 

bfp; 
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double 



quani_const; 



Block addr, old, new, delta, zero_block={{0,0},{0,0}}; 



int step; 

PrevBlockSA(old,addr,x,y,oct,sub,channel,dst); 
if (mode! = VOID) { 

CalcNornialsSA(oct,sxib,channel, norms, quant_const); 

step=norms{0] < 1.071 :(int)nonns[0]; 

if (mode == STILL 1 1 BlockZero(old)) { 

if (BoolTokenSA(bfp)) { /• NON_ZERO_STHJL */ 



Dprimf("NONJZERO_STILL\n") ; 
HuffBlockSA(delta.bfp); 
DeltaBlockSA(new,old,delta,step); 
UpdateBlockSA(acw,addr,cbaimel,dst); 
}else{ 

Dprinif("ZERO_STILL\n"); 

mode = STOP; /• ZERO_STILL */ 



if (!BoolTokenSA(bfp)) { /• BLOCK JSAME ♦/ 
Dprintf("BLOCK_SAME\n"); 
mode = STOP; 



}else{ 

if (!BoolTokenSA(bfp)) { /• ZERO_VID •/ 



double 




}else{ 



Dprintf("ZERO_VID\n"); 
ZeroCoeffsSA(dst[channel] ,addr); 
mode = VOID; 



}else{ 



/* 



BLOCK CHANGE •/ 
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Dprintf( "BLOCK_CHANGE\n" ) ; 
HuffBlockSA(delta.bfp); 
DdtaBlockSA(ncw,old,dclta.sicp); 
UpdaicBlockSA(new,addr,channel,dst); 

} 

} 

} 

}else{ 

if (BlockZeroSA(old)) mode = STOP; 
else { 

ZeroCoeffsSA(dst[channel] ,addr); 
mode = VOID; 

} 

} 

if (oct > 0 && mode! =STOP) { 

Boolean decend - mode = « VOID?Tmc:BoolTokenSA(bfp); 
int X, Y; 



Dprintf('x=%d, y=%d, oct= %d sub=%d mode 
%d\n" ,x,y ,oct,sub,mode); 

if (decend) { 

if (mode! = VOID) Dprintf("OCT_NON_ZERO\n"); 
for(Y=0;Y<2;Y++) for(X«0;X<2;X + +) 



KlicsTreeSA(mode,x*2+X,y*2+Y,oct-l,sub,channel,dst f bfp,quant_const); 
} else if (mode! = VOID) Dprintf("OCT_ZERO\n"); 

} 

} 



void Kl icsLPF_S A (mode , dst t bfp , quant_const) 



int mode; 
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short *dst(3]; 



Bits, bfp; 



double 



quant_const; 



Block addr, old, new, delta; 
im channel, channels =3, x, y, 
octsJum=3, 

size[2] = {SA_WIDTH> >octsJum+l,SAJIHGHT> >ocisJum + l); 
for(y=0;y<size[l];y++) for(x-0;x<size[0];x++) { 



if (mode! = STILL) { 

lpfJoc=BoolTokenSA(bfp); /• 
LPF^LOC_ZERO/LPF^LOC^NON_ZERO */ 

DprimfC %s\n" f lpf Joe? "LPF.LOC^NON^ZERO": *U>F_LX>C_ZERO"); 



if flpfjoc) for(chaimel»0;channel<channels;channel-h+) { 
int octs=channeI! =0?2:3, 



PrevBlockSACold^addr^^.octs-l.O.channel^dst); 
CalcNormalsSA(octs-l t O t channeKnorms,quani_const); 
stcp= nonnsfO] < 1 .071 : (int)noims[0] ; 
if (mode == STILL) { 
for(bits=O t 



value=((l < <8+SA_PREaSION>l)/step;value!=0;bits++) 

value = value > > 1; 



Boolean 



lpfJoc=True; 



double 



X, Y, step, value, bits=0; 

nonnsf3] -{quamjx)nst,thresh - consi,cmp_const}; 
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for(X =0;X < BLOCK;X+ + ) for(Y=0;Y < BLOCK;Y + +) 

delta[X][Y]=ReadImSA(bits,bfp); 
DcltaBlockSA(new,old,delta,siep); 
UpdauBIockSA(ncw,addr,channel.dst); 

}dse{ 

if (BoolTokenSA(bfp)) { /* LPF_Z£RO/LPF_NON_ZERO 

*/ 

Dprintf( "LPF_NON_ZERO\n"); 
HuffBlockSA(dclta.bfp); 
DeltaBlockSA(new,old,delta,step); 
UpdateBlockSA(new,addr,channel,dst); 
} else Dprinrf("LPF_ZERO\n"); 

} 

> 

} 

} 

void KlicsFrameSA(mode,src f dst,bfjp) 

int mode; 

short *srt[3], *dst(3]; 

Bits bfp; 

{ 

int sub, channel, x 9 y, i, 
octsJura=3 t 

size[2] = {SA_WIDTH> > 1 +octsJum,SA_HEIGHT> > l+octsjum}; 
double quani_const; 

bread((char *)&quant_const,sizcof(double)*8,bfp); 
KlicsLPF_SA(mode,dst f bfjp,quant_const); 
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for(y=0;y<size(l];y++) for(x=0;x<size[0];x + +) { 
if (BoolTokenSA(bfp)) { 

Dprintf("LOCAL_NON_ZERO\n"); 
for(channcl=0;channel<3;chaimel++) { 
int oc is = channel! =0?2:3; 

if (BoolTokenSA(bfp)) { 

Dprintf("CHANNEL_N0N_ZERO\n"); 
for(sub- 1 ;sub < 4;sub+ +) 

KlicsTrceSA(mode,x,y,octs-l ,sub,channel,dst,bfjp,quant const); 

} else Dprintf ( " CHANNEL_ZERO\n ") ; 

} 

} else DprintfrLOCAL.ZEROV); 

} 

for(chaniicl=0;cnanncl<3;chaiinel++) { 
int 

frame_size[2] = {SA_WIDTH > > (channel = = 0?0: 1),SA_HEIGHT > > (channel = =0?0: 1 
)>, 

ftame_area - frame_size{0] *frame_si2e( 1 ] ; 

for(i=0;i<fTame_area;i++) src[cbannel][i]=dst[channel][i]; 

Convolve<src[channel],False,n^me_si2e,cnannel = =O?3:2,0); 
for(i=0;i < frame_area;i+ +) 

src[channel][i] = src(channel][i] > > SAJ>RECISION; 
} 

} 
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source/lnitFrame.c 



Initialise frame strucrure for Frame command widget 



^include " . . /include/xwavch" 

#defme FRAMEJCONS 1 4 

^define TRANS_MENU 1 

#define COMP MENU 2 



extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern void 
extern String 
extern void 



CopyVideoO; 
CompareO; 

NAO; 

FrameDestroyO; 

ExamineO; 

FramePointYNO; 

FramelnfoO; 

FrameMergeO; 

MovieO; 

PostScriptO; 

SelectO; 

SpectrumO; 

NewPointO; 

TransfonnO; 

CompressO; 

•VideoCurcentListO; 

KlicsSAO; 



void InitFrame (w,closure,call_data) 
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Widget 



caddr t 



closure, call data; 



XawListReruniStruct *name = (XawListReruniStruct *)call_data; 
Video video =FindVideo(name->string,global-> videos); 
Frame frame = (Frame)MALLOC(si2eof(FrameRec)); 
Widget shcU[2], form, widgets [FRAME_ICONS] , 
trans_widgets[TRANS Jtf ENU] , comp jvidgcts[COMP_MENU] ; 
Arg args[7]; 
Pixmap pixmap; 

int viewI2] = {15+video->si2e[0] f 15+video->size[l]}; 
Formltem iteznsQ » { 



"frm^cancel", "firaiDe_clo$e", 
"frm_copy" f "copy", 
"firm^exam", "examine", 
"firm jx)int_yn" , "point_y " , 
" frm_transf orm " , "transform " t 



3,0,FWJcon,NULL}, 



0. 0,FWjcon,NULL}, 

1. CFWjcoiuNULL}, 
2,0,FWjcon,NULL} f 



4,0, FW_icon_button, " frm_trans_menu " } , 

{"fnn_info_yn", 'info*, 
5,0 t FW_icon t NULL} t 



"frm_mergc'\ "merge* f 
"frm_comprcss\"code\ 



6,0,FWjoggIe,NULL}, 



7 ,0,FWJcon_bution, "fnn_comp_raenu " } f 



"frm_movie", "movie", 
"fhnj>ostscript\ "postscript" , 
"fnn_compart\ "compart", 
"fnnview", NULL, 



8,0,FWjcon,NULL}, 
9,0,FWJcon,NULL}, 

10,0,FWJcon,NULL} f 



0 f 1 ,FW_view,(String)view} t 



ftmJabeP, video- > name, 
fnn_colors " , " colors " , 



0,12,FWJabel,NULL}, 

13,12,FW_icon,NULL}, 
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Selection sel = (SeIecuon)MAIXOC(sizeof(Select]tem)); 
Menultem traus_raenu[TRANS_MENUl = { 

{ n trans_Wavelct" .smeBSBObjectClass, "Wavelet". NULL}, 

}; 

Menultem comp_menu(COMP_MENU] = { 

{ "corapJCLICS" .smeBSBObjectClass, 'KL1CS " .NULL}, 

{ "comp_KLICS_SA" .smeBSBObjectClass, "KLICS S A* .NULL}, 

}; 

XtCallbackRec frame_caUQ = { 

{FraineDestroy,(caddrj)fTame}, {Free,(caddrj)sel}, {NULL, NULL}, 

{CopyVideo,(caddr_t)video} f {NULL.NULL}, 

{Faaminc,(caddr_t)fTame}, {NULL,NULL}, 

{FramePointYN,(caddrj)frame}, {NULL.NULL}, 

{FrameInfo,(caddrj)&ame}, {NULL.NULL}, 

{FramcMerge,(caddr_t)ftame}, {NULL.NULL}. 

{Movie,(caddr_t)ftame}, {NULL.NULL}, 

{PostScript,(caddr_t)frame}, {NULL.NULL}, 

{Select,(caddrj)$el}, {NULL.NULL}, 

{Spectrum, (caddr_t)frame}, {NULL.NULL}, 
}, image_caJlD-{ 

{NewPoint,(caddrj)fTaroe}, {NULL.NULL}, 
}, trans_callD = { 

{Traasfonn,(caddrj)video}, {NULL.NULL}, 
}, comp_caJlQ={ 

{Compress,(caddi_t)video}, {NULL.NULL}, 

{KIicsSA,(caddr_t)video}. {NULL,NULL}, 

}; 

Colcrmap cmap = ChannelCmap(frame- > channel = (video- > type = = MONO 
1 1 video- > trans. type! = TRANS_None)?0:3, video- > type, video- > gamma); 

DprintfCInitFrame\n''); 
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sel->name= n video_Compare"; 
sel- > button = "fnu^comparc' 1 ; 
sel- > listjroc = VideoCurrentList; 
sel- > action name = " Compare videos"; 
sel- > act ion j>roc = Compare; 

sel- > actionj:Iosure=(caddrj)video; 
frame- > video = video; 

frame- > shell = SheUWidget("frm_sheIl , \gIobal- > <oplevel,SW top, cmap, NULL); 
form=ForaiatWidget( B frm - form\fnuiie- > shell); 
frame- > image_widget = NULL; 

frame- > msg - NULL; 

frame- > zoom =0; 
frame- > frame =0; 

frame- > point_switcb = False; 
frame- > point_raerge= False; 

frame- > point = (Poini)MALLOC(sizeof(PointRec)); 

frame- > point- > location[0]=0; 

frame- > point- > location[l] =0; 

frame- > point- > usage* 1; 

frame- > point- > next-global- > points; 

global- > points = frame- > point; 

frame- > palette =0; 

frame- > next = global- > frames; 
global- > frames = frame; 

GetFrame(video f frame- > frame); 



ct iorn-n mr eucrT mi* r 
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pixmap = Updatelmage(frame); 

FillFonn(form. FRAME_ICONS .items, widgets, frame call); 
shellfO] = Shell Widget( "fnn_trans_menu ", widgets[4] , SWjnenu, NULL,NULL); 
FiJlMenu(shell(0],TRANS_MENU,trans_menu,irans_widgets,trans call); 
shellf 1 ] = ShellWidget("fnn_comp_raenu " , widgets[7] ,SW_menu,NULL,NULL); 
FillMenu(shell[l],COMP_MENU,comp_menu,comp_widgeis,comp call); 

frame- > point_merge_widget» widgets{6]; 

XtSeiArg(argsIOJ .XiNbitmap .puunap) ; 
XtSetArg(argsIl],XtNwidth, video- > size(0]); 
XtSetArg(args[2],XtNheight, video- > sizefl J); 
XtSetArg(args[3],XtNcallback.image_call); 

frame- > image_widget=XtCreateManagedWidget("fm_image\ii^ 
s[ll].args,FOUR); 

XtSetSensitive(frame- > image_widget,False); 

XtSetSensitive(widgets[13],PseudoColor= = global- > visinfo- > class); 

XtPopup(frame- > shelI,XtGrabNone); 

} 

Video Find Video(namc f video) 

String name; 
Video video; 

{ 

if (videos =NULL) retuni(NULL); 
else if (!stitmp(name,video->name)) rctura(video); 
else rcturn(FindVideo(najnc f video->nexi)); 

} 
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source/InitM&in.c 



/♦ 

Initialise menu structure for Main command widget 

•/ 

^include "../include/xwave.h" 



/* Save externs */ 

extern void VideoSaveO; 

extern void VideoXimSaveO; 

extern void VideoDTSaveO; 

extern void VideoMacSaveO; 

extern void VideoHexSaveO; 

/* List externs */ 



extern String *VideoListO; 
extern String *VideoDropListO; 
extern String 'VideoCurrentListO; 
extern String *KlicsListO; 
extern String *KlfcsListSAO; 



/* Import externa •/ 

extern void ImportKJicsO; 
extern void ImpKlicsTestSAQ; 



/* Main extems */ 
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extern void 
extern void 
extern void 
exiern void 
extern void 
extern void 
extern void 



Select(); 

VideoCIeanO; 

QuitO; 

VideoLoadO; 
InitFramcO; 
VideoDropO; 
PlotGraphO; 



/* Function Name: InitMain 

* Description: Create main menu button & sub-menus 

* Arguments: none 
+ Returns: none 



^define MAINMENU 7 

^define SAVE_MENU 5 

^define IMPT_MENU 2 

InitMainQ 



Widget form = Format Widget("xwave_form\globaI- > toplevel), widgets[l] f 

main_shell t main_widgets[MAIN_MENU], 

save_shell, save_widgets[SAVE_MENU], 

impt_sbell t imptjvidgets[IMPTJ4ENU]; 
Form! tern itemsQ={ 

{ "xwaveLogo " ,"main ■ ,0,0, FW_icon_button f "xwave_main_sh "} , 

}; 

Menul tern main_menuQ={ 

{"main_Open",smeBSBObjcctClass,"Open a video\NULL}, 
{"main_Anach\smeBSBObjcctClass,"Attach a framc",NULL}, 
{"main_Save",smcBSBprObjeciClass,' , Savc a video", "xwave_save_sh"}, 
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{"n^^Drop", smeBSBObjectClass. "Drop a video", NULL}, 
{'maiD_Cleafl\smeBSBObjectClass, "Clean out videos ".NULL}, 
{'main_Impon".sraeBSBpK)bjectClass, "Import a 
video* , "xwave_impt_sh"} , 

{ "ma m_Q^ it" .smeBSBObjectClass, "Quit \ NULL} , 
}, save_menuQ ={ 

{ " save_menu_vid " .smeBSBObjectClass, "Save xwave video B .NULL} , 
{ "save jnenujcim",smeBSBObjectClass, "Save xim video\NULL}, 
{"savejnenudr.smeBSBObjectClass/Save DT image",NULL}, 
{"save_menu_mac",smeBSBObjectClass,"Save mac video'.NULL}, 
{"save_menu_hex " .smeBSBObjectClass, "Save hex dump " .NULL} , 
}, impt_mcnu[]={ 

{"impt_menu_kJics",smeBSBObjectClass."KLICS",NULL}, 
{"imptjnenu_kIicsSA",smeBSBObjectClass, "KUCS SA",NULL}, 

}; 

static Selectltem selection!] ={ 

{■video_Open","xwaveLogo",VideoList,"Open a 
video",VideoLoad,NULL}, 

{"frame_AoacJi"/xwavel^go",VidcoCurTentList, "Attach a 
frame", IniiFramc, NULL}, 

{"video_Drop", "xwaveLogo",VideoDropList, "Drop a 
video",VideoDrop,NULL>, 
}, save_selQ={ 

{"save^vid'/xwaveLogo'.VideoCurrentList, "Save xwave 
video\VideoSave f NULL}, 

{"save_xim","xwavel^go",VideoCuneiilList,"Save xim 
video",VideoXimSave,NULL), 

{"save_dt","xwaveLogo",VideoCunentList,"Save DT 
image ' , VideoDTSave , NULL} , 

{"save_mac","xwaveLogo",VideoCurremList,"Save mac 
video" ,VkJeoMacSave .NULL} , 

{ "save_hex " , "xwaveLogo" , VideoCunentList, "Save hex 
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dump" , VideoHexSave.NULL} , 

}, impt_sein = { 

{ "impt_kJics", "xwaveLogo",KlicsList, "Impon 
KLICS ' . ImportKlics.NULL} , 

{"impt.klicsSA'/xwaveLogo'.KlicsListSA/Impon KLICS 
S A * , ImpKlicsTestSA.NULL} , 

}; 

XtCaJlbackRec main_callQ={ 

{ Select, (caddr_t)&selection[0] } , {NULL.NULL} , 

{Select,(caddr_t)&seleciion(l]} t {NULL.NULL}, 

{Selea,(caddr_t)iStselection[2]}, {NULL.NULL}, 

{Videoaean,(caddrj)NULL}, {NULL, NULL}, 

{Quh,(caddrj)NULL}, {NULL.NULL}, 
}, save_callQ = { 

{Selea,(caddrj)&save_sel[OJ}, {NULL,NULL}, 

{Select,(caddrj)&save_sel[l]}, {NULL.NULL}, 

{Select,(caddrj)&save_sel[2J}, {NULL.NULL}, 

{Select,(caddrj)&save_sel[3]}. {NULL, NULL}, 

{Select.(caddr_t)&save_sel[4J}, {NULL.NULL}, 
}, impt_callQ={ 

{Select,(caddx_t)&impt_sel[0]}, {NULL.NULL}, 

{Select,(caddrj)&impt_sel[l]} f {NULL.NULL}. 

}; 

DprintfOnitMauAn"); 
FillForm(form.ONE.itcms, widgets, NULL); 

main_shell = ShellWidget("xwave_main_sh%wkJgets[0],SW_meim,hfULL,NULL); 
save jhell = Shell Widget("xwave_save_sh" ,main_shell,SW_menu,NULL,NULL); 
imptjhell = ShellWidget("xwave_impt_sh" ,main_shell, SW_menu,NULL,NULL); 
FiIlMenu(main_she!l,MAJN_MENU,main_menu,main_widgets,main_call); 
FillMenu(save_shell,SAVE_MENU,save_menu,save_widgeis,save_call); 
FillMenu(impi_shell,IMPT_MENU.impi_menu,impt_widgets,impt_call); 
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source/KlicsS.c 



/• 

Full still/video Knowles-Lewis Image Compression System utilising HVS 
propenies 

and delta-tree coding 

*/ 

^include "xwave.h" 
^include 'Klics.b" 
^include <math.h> 

extern Bits bopenO; 

extern void bcloseO, breadO. bwriteO. bflushO; 

extern WriteKIicsHeaderO; 

/* token modes (empty) */ 

#define EMPTY 0 

^define CHANNEL.EMPTY 1 

#define OCTAVE_EMPTY 2 

#defme LPF_EMPTY 3 

Idefine FULL 4 

typedef struct _HistRec { 

int bits, octbits[3][5J. lpf, activity, target, tokenfTOKENS], coeffI129]; 

double q_const; 
} HisiRec, *Hist; /• history record ♦/ 



/* 
* 



Function Name: Access 

Description: Find index address from co-ordinates 
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* Arguments: x, y - (x,y) co-ordinates 

oct, sub, channel - octave, sub-band and channel co-ordinates 

* width - image data width 

* Returns: index into vid->data[channel]|][indcx] 
*/ 

int Access(x,y,oct,sub,width) 

int x, y, oct, sub, width; 

{ 

return(((x< < l)+(sub> > l)+widtb*((y< < l)+(l&sub)))< <oct); 

} . 

/* Function Name: LastFrame 

* Description: Find last frame encoded 

* Arguments: z - index of current frame 

* hist - history records 
+ Returns: index of previous frame 

•/ 

int LastFrame(z v hist) 

int z; 
Hist hist; 

{ 

int i=z-l; 

while(hist[i].bits= =0 Sc& i>0) i~; 
return(i<0?0:i); 

} 
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/* Function Name: Decide 

* Description: Calculate value representing, the difference between new and old 
blocks 

* Arguments: new, old - blocks to compare 

* mode - differencing algorithm {MAXIMUM | SIGABS J 
S1GSQR} 

* Returns: difference value 
*/ 

int Decide(new, old, mode) 

Block new, old; 
int mode; 

{ 

int X t Y, sigma =0; 

for(X=0;X<BLOCK;X++) for(Y=0;Y< BLOCK; Y++) { 
ini n_o=new[X][Y]-old[X][Y]; 

switch(mode) { 
case MAXIMUM: 

sigma= sigma > abs(n_o)?sigma:abs(n_o); 
break; 
case SIGABS: 

sigma + =abs(n_o); 
break; 
case SIGSQR: 

sigma + =n_o*n_o; 
break; 

} 



} 
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retura(sigma); 

} 

/* Function Name: DecideDoublc 

* Description: Calculates normal w.r.t differencing algorithm 

* Arguments: norm - normal value 

m ode - differencing algorithm {MAXIMUM | SIGABS | 

SIGSQR) 

* Returns: new normal value 
*/ 

double DecideDouble(norm,mode) 

double norm; 
int mode; 

{ 

double ret; 

switch(mode) { 
case MAXIMUM: 

ret* norm; 

break; 
case SIGABS: 

ret=4.0*norm; 

break; 
case SIGSQR: 

ret=4.0*norm*nonn; 

break; 

} 

return(ret); 

} 
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Boolean Dec is ion(ne w , old , norm , mode) 

Block new, old; 
double norm; 
ini mode; 

{ 

reTurn((double)Decide(new,old,mode) < =DecideDouble(norm,mode)); 

} 

/* Function Name: Feedback 

* Description: Calculates new target activity from target bits and historical values 

* Arguments: hist - history records 

* curt * current frame 

* taps - size of history window 

* Returns: target activity 
♦/ 

int Feedback(hist,curr 9 taps) 

int curr; 
Hist hist; 
int taps; 

{ 

int prev=curr f i; 
double ratio -0; 

for(i=0;i<taps && prev!=0;i++) { 
prev = LastFrame(prev ,hist) ; 

ratio + = (double)hist [pre v] .acti vity/(double)(hist[pre v] . bits-(prev = = 0?hist(0] . lpf :0)) ; 

SUBSTITUTE SWEET (flULE 26) 
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} 

retura((ini)(raiio»(double)hist[cuiT] . targct/(double)i)); 

} 

/* Function Name: Filter 

* Description: Calculates new q_const filtering historical values 

* Arguments: hist - history records 

* curr - current frame 

* taps - size of history window 

* filter - index to filter 

* Returns: q_const 
*/ 

double FUter(liist,curr t taps,filter) 

int curr; 

Hist hist; 

int taps, filter; 

{ 

double mac = hist[curr] . q_const, sum =1.0, coeff =1.0; 
int i, prev=curr; 

for(i=0;i<taps &A prcv!=0;i++) { 
prcv= Las tFrame(prev, hist); 
coeff =filter= =0?0:coeff/2.0; 
mac+ =hist[prev].q_cbnst*coeff; 
sum+ = coeff; 

} 

reiurn(mac/sum); 
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/• Function Name: Huffman 

* Description: CaJculates the number of bits for the Huffman code representing 
level 

* Arguments: level - level to be encoded 

* Returns: number of bits in codeword 
•/ 

int Hufftnan(level) 

int level; 

{ 

returadcvel *= - 0?2:(abs(level) < 3?3: 1 +abs(level))); 

} 

/* Function Name: HuffCode 

* Description: Generates Huffman code representing level 

* Arguments: level - level to be encoded 

* Returns: coded bits in char's 
*/ 

unsigned char *HuffCode(level) 

j 

int level; 

{ 

unsigned char 'bytes = (unsigned char *)MALLOC((7+Huffinan(level))/8); 

byteslO] = (abs(level) < 3?abs(level):3) | (level < 0?4:0); 
if (abs(level)>2) { 

int index=(7+Hufftnan(level))/8-l; 
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bytes(index] = bytesf index] | (1< < (Huffman(leve!)-1)%8); 



int len=(7+bits)/8; 

unsigned char *bytes = (unsigned char *)MALLOC(len); 
int byte; 

foifbyte ■ 0;byte < len;byte + + ) { 
bytesfbytc] =Oxff&number; 
number = number > >8; 



rerurn(bytes); 



unsigned char *CodeInt(number,bits) 



number, bits; 




tnt 



Rcadlnt(bits,bfp) 



int 



bits; 



Bits bfp; 



int 



len-(7+bits)/8; 



unsigned char bytes(len]; 
int byte, number=0; 



bread(bytes.bits,bfp); 
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for(byte =0;byie < len;byte + + ) 

number = number J ((int)byies(byte) < < byte*8); 
number = (number < <sizeof(int)*8-bits)> >sizeof(im)*8-bits; 
renjrn(nuniber); 

} 

/• Function Name: HuffRead 

* Description: Read Huffman encoded number from binary file 

* Arguments: bfp • binary file pointer 

* Returns: decoded level 
*/ 

int HuffRead(bfp) 
Bits bfp; 

{ 

int value; 

unsigned char byte; 
Boolean negative = False; 

brtad(&byte t 2,bfp); 
value =(int)byte; 
if (byte = = '\0 f ) return(O); 
else { 

bitad(&byte,l,bfp); 
negative = (byte! = f \0 f ); 

} 

if (value < 3) return(negif(negative, value)); 

Mbyte - 9 \0* ;bytc « « 9 \0* ; value + + ) bread(&byte, 1 ,bfp); 

return(negif(negative , value- 1 )); 
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/* Function Name: Quantize 

* Description: RM8 style quantizer 

* Arguments: data - unquantised number 

* q - quantizing divisor 

* level - quantised to level 

* Returns: quantized data & level 
♦/ 

int Quantize(data t q , level) 
int data, q, *level; 
{ 

in! mag Je vel = abs(data)/q; 
* level = negif(data < 0,mag Jevel); 

return(Degif(data<0,magJevel*q+(magJevel!*0?(q-l)> > 1:0))); 

} 

/* Function Name: Proposed 

* Description: Calculates proposed block values 

* Arguments: pro - proposed block 

* lev - proposed block quantized levels 

* old, new • old and new block values 

* decide - decision algorithm 

* norms - HVS normals 

* Returns: new= =0, proposed values (pro) and levels (lev) 
*/ 

Boolean Proposed(pro,lev t old,new,decide, norms) 
Block pro, lev, old, new; 
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int decide; 

double nonns[3]; 



{ 

Block zero_block={{0,0},{0,0}}; 

int X, Y, step = normsfO] < 1 .071 :(int)normsIO]; 

Boolean zero=Decision(new,zero_block,nonns[l], decide); 

for(X = 0;X < BLOCK;X + + ) for(Y = 0; Y < BLOCK; Y + + ) 



pro[X][Y] = zero?0:old[X][Y] + (*iantize(ne^ 
return(zero); 

} 

/* Function Name: ZeroCoeffs 

* Description: Zero out video data 

* Arguments: data - image data 

* addr - addresses 

* Returns: zeros data[addrQ0] , 
*/ 

void ZeroCoeffs(data,addr) 

short *data; 
Block addr. 



im X, Y; 

for(X =0;X < BLOCK;X + + ) for(Y =0; Y < BLOCK;Y + +) 
data(addrlX][Y]]=0;. 

} 
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/• Function Name: BlockZero 

* Description: Test if all block values are zero 

* Arguments: block - block under test 

* Returns: block ==0 
*/ 

Boolean BlockZero(block) 
Block block; 

{ 

int X, Y; 

Boolean zeros True; 

for(X =0;X < BLOCK;X+ +) for(Y=0;Y < BLOCK; Y+ +) 

if (block[X][Y]! =0) zero = False; 
return(zero); 

} 

/* Function Name: SendToken 

* Description: Increments token frequency 

* Arguments: token - token to be transmitted 

* channel, sub, oct - co-ordinates 

* ctri - control record for compresssion 

* hist - history record 

* empty - zero state {EMPTY | CHANNEL_EMPTY | 
OCTAVE_EMPTY | LPF_EMPTY | FULL} 

* branch • branch of tree (0-3) 

* Returns: encodes token 
•/ 



void SendToken(ioken,channel t sub f oct,ctrl,hist,empty .branch) 
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ini token, channel, sub, oct, "empty, branch; 
CompCtrl Ctrl; 
Hist hist; 

{ 

ini full = FULL, i; 
String 

token_name[TOKENS] = { "ZERO_STILL" , "NON_ZERO_STILL", "BLOCK_SAME" , "ZE 
RO_VID" , "BLOCK_CHANGE" , 

"LOCAL_ZERO " , "LOCAL_NON_ZERO", "CHANNEL_ZERO" , "CHANNEL_NON_ZE 
RO " . ' OCT_ZERO " , " OCT_NON_ZERO " , 

"LPF_ZERO" , "LPF_NON_ZERO", "LPF_LOC_ZERO", "LPF_LOC_NON_ZERO" } ; 

switch(*empty) { 
case EMPTY: 

if (token! «= ZERO_STILL && token! = BLOCK_S AME) { 

SendToken(LOCAL_NON_ZERO,chaimel,sub,oct,ctrl,hist t &njll t branch); 

for(i*=0;i < channel;! + +) 
SendToken(CHANNEL_ZERO,i,sub,(X^,ctrl t bJst,&rull,branch); 

•empty = CHANNEL_EMFTY; 

SendToken(token,channel,sub,oct,ctrl,hist,empty,branch); 

} 

break; 

case CHANNEL_EMPTY: 

if (token! =ZERO_STILL && token! =BLOCK_S AME) { 

SendToken(CHANNEL_NON_ZERO,charmel.sub,oct,ctrl,nist,&full,brancW 

for(i=l;i<sub;i++) 

SendToken(token= = NON_ZERO_STIlX?ZERO_STILL:BLOCK_SAME,channeI,i,oct,a 
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rl.hist.&full. branch); 

♦empty = FULL; 

SendToken(token,channel, sub, oci.ctri,hist,cmpty .branch); 

} 

break; 

case OCTAVE_EMPTY: 

if (token! = ZEROJTILL && token! =BLOCK_SAME) { 

SendToken(OCT_NON_ZERO,channel,sub,oct,ctrl.hist,&full,branch); 

for(i = 0; i < branch;i + +) 
SendToken( token* = NON_ZJERO_STIlJ.?ZERO_STILL:BLOCK_SAME, channel, sub, oc 
t,ctrl,hist,&full.branch); 

•empty = FULL; 

SendToken(token,channel,sub,oct,ctrl,hist,einpty,branch); 

} 

break; 
case LPF_EMPTY: 

if (token! =LPF_ZERO) { 

SendToke^UTJXXM^O^ZEROiCha 

for(i»0;i<channel;i++) 
SeixJTokenCUT^ZEROJ.sub.oct,^ 

♦empty = FULL; 

SendToken(ioken,channel,sub t oct,ctrl,hist,empiy f branch); 

> 

break; 

case FULL: 

DprintfC %s\n\ token_name[token]); 

hist- > token(tokenJ + + ; 

hist- > bits + =token_bits[tokenJ; 

hist- > octbits[channeI][oct] + « token_bits[token] ; 

if (Ctrl- > bin_switch) 
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buTiie(&token_codes{token],token_bit5[token],ctrl- > bfp); 
break; 

} 

} 

Function Name: RcadBlock 
Description: Read block from video 

Arguments: new, old, addr - new and old blocks and addresses 

x, y, z, oct, sub, channel - co-ordinates of block 
Ctrl - compression control record 
Returns: block values 

void ReadBlock(new > old t addr,x,y f 2,oct f sub,channel t ctrl) 

Block new, old, addr; 

int x, y, z t oct, sub, channel; 

CompCtrl Ctrl; 

{ 

int X f Y; 

for(X=0;X<BLOCK;X++) for(Y=0;Y< BLOCK; Y++) { 

addr[X]m=Access((x< <1)+X,(y< <l)+Y,oct t sub t Size(ctrl->sn: f channeKO)); 
new[X][Y] =(int)ctrl- > srcr > data[channeI][z][addrPC][Y]]; 
old[X][Y] « (int)ctrl- > dst- > data[channeI][2]laddrp(](Y]] ; 

} 

} 



* 

* 

*/ 



Function Name: CalcNormals 
Description: Calculates HVS weighted normals 
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* Arguments: ctrl - compression control record 

* oct, sub, channel - co-ordinates 

* norms - pre-initialised normals 

* Returns: weighted normals 
*/ 

void CalcNonnals(ctrl , oct , sub ,channel .norms) 

CompCtrl Ctrl; 

int oct, sub, channel; 

double norms [3]; 

{ 

Video vid=ctrl->dst; 

int norm, base_oct = oct + ( vid- > type = = YUV && 

channel! =0?vid- > trans, wavelet. space[0]-vid- > trans. wavelet.space[l]:0)+(sub==O?l:O) 



for(noim=0;nonn<3;nonn++) { 

if (norm!=0) norms[norm] * = Ctrl- > quant_const; 
normsfnorm] * = 
Ctrl- > base_factorsfbase_oct]*(sub= =3?ctrl- > diag_factor: 1 .0); 

if (channel! =0) normsfnorm] *= ctri- > chrome_factor; 
normsfnorm] *=(double)(l < < vid- > precision); 

} 

Function Name: MakeDecisions 

Description: Decide on new compression mode from block values 
Arguments: old, new, pro - block values 

zero * zero flag for new block 
norms * HVS normals 



* 
* 
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* mode - current compression mode 

* decide - comparison algorithm 

* Returns: new compression mode 
*/ 

int MakeDecisions(old, new, pro, zero, nonns,mode t decide) 

Block new, old, pro; 
Boolean zero; 
double norms[3]; 
int mode, decide; 

{ 

Block zero J>lock={{0,0}, {0,0}}; 

int newjnode, np=Decide(new,pro,decide), no =Decide(new,old, decide); 

if (np<no && (double)no>DecideDouble(nonns[mode- - STILL? 1:2] .decide) 
&& Izero) 

ne w_mode = mode = = STILL 1 1 
(doublc)Decide(oId,zeroJ>lock,decide)< =DecideDoubIe(iK)nns[l] t decide)?STILL:SEND; 
else newjnode = mode == SEND && np<no && zero?VOID:STOP; 
return(new_mode); 

} 

int MakeDecisions2(oId t new t prt), lev, zero t norms,mode, decide) 

Block new, old, pro, lev; 
Boolean zero; 
double norms [3]; 
int mode, decide; 

{ 
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Block zcro_block = {{0,0},{0,0}}; 

int new_mode = mode = = STILL | j BlockZero(old)?STTLL:SEND, 
np=Decide(new,pro,decide), no=Decide(new.old,dccide); 

if (new_mode= = STILL) new_mode = np> =no j | zero | j 
BiockZero(lev)?STOP: STILL; 

else new_modc=zcro && np<no?VOID:np> =no j j 
Dccision(new,old,Dorms[2],decide) 1 1 Block2ero(lev)?STOP:SEND; 

rerurn(newjnode); 

} 

/* Function Name: UpdateCoefb 

* Description: Encode proposed values and write data 

* Arguments: pro, lev, addr - proposed block, levels and addresses 

* z, channel, oct - co-ordinates 

* Ctrl - compression control record 

* hist - history record 

* Returns: alters Ctrl- > dst- > data[channelJ[z][addrQO] 
•/ 

void UpdateCoeffs(proJev,addr t z,chamieI,oct,ctrI,hist) 

Block pro, lev, addr; 
int z, channel, oct; 
CorapCtrl ctrl; 
Hist hist; 

{ 

int X, Y; 

for(X=0;X<BLOCK;X++) for( Y = 0; Y < BLOCK; Y + + ) { 
int bits=Huffinan(lev[X][Y]), 
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level = abs(lev[X][Y]); 



Ctrl- > dst- > daia[channel][2](addr[X][Y]] = (shon)pro[X][Y]; 

hist- > coeffllevel > 128?128:level] + + ; 

hist- > bits += bits; 

hist- > octbitsfchannel] [oct] + = bits; 

if (Ctrl- > bin_switch) { 

unsigned char *bytes=HuffCode(lev[X]nH); 

bwrite(bytes,bits,ctrl- > bfp); 
XtFree(bytes); 

} 

} 

} 



/* Function Name: SendTrcc 

* Description: Encode tree blocks 

* Arguments: prevjnode - compression mode 

* x, y 9 z, oct t sub, channel - co-ordinates 

* ctrl - compression control record 

* hist * history records 

* empty - token mode 

* branch - tree branch number 

* Returns: active block indicator 
*/ 

Boolean SendTree(prevjnode,x,y,z,oct,sub,chan 

int prevjnode, x, y, z, oct, sub, channel, *ernpty, branch; 
CompCtrl ctrl; 

Hist hist; 
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{ 

Block addr, old, new, pro, lev; 
int newjnode, X, Y; 
double 

norais{3] = {ctrl- > quant_const.ctrl- > thresh_const.ctrl- > cmp_const} ; /* quant, thresh, 
compare */ 

Boolean active = False; 

ReadBlockCnew^ld^addr^.y.z.oct^sub^hannel^trl); 
if (pre v_raode!= VOID) { 
Boolean zero; 

CalcNonnaJs(ctrl t oct, sub, channel, norms); 

2ero = Proposed(pro t lev f old,new f ctrl->decide f nonns); 

/• 

new_mode = MakeDecisions(old,new f pro f 2ero,nonns f prcv_mode,ctrl- > decide);*/ 

new_mode = MakeDecisions2(old,new,pro Jev f zero,nonns,prev_mode,ctrl- > decide); 
switch(new_mode) { 
case STOP: 

/•SendToken(prev_raode = = STIIi?ZERO_STIlX:BLOCK_SAME,ch^ 
ist,eropty, branch);*/ 

ScndTokcn(prcvjnode= = STILL || 
BlockZero(old)?ZERO_STIIJL:BLC^ 

break; 
case STILL: 
case SEND: 

active = True; 

/*SendToken(prev_mode = = STILL?NON - ZERO_STILL:BLOCK_CHANGE,channel,sub 
,oct,ctrl.hist,empty t branch);*/ 
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SendToken(prev_mode== STILL jj 
Bl«kZero(old)?NON_ZERO_STIll^ 
branch); 

UpdaieCoeffs(pro,lev,addr,2,cJunneKoct,ctrl f hist); 
break; 
case VOID: 

Se ndToken(ZERO_ VID , channel , sub , oct , Ctrl f hist, empty , branch) ; 

ZeroCoeffs(ctrl- > dst- > data[channel][z],addr); 

break; 

} 

}else{ 

if (BlockZcro(old)) new jnode - STOP; 
else { 

ZeroCoeffs(ctrl- > dst- > dau[channel][z] ,addr); 
newjmode = VOID ; 

} 

} 

if (oct>0 && new_mode!=STOP) { 

int mt = OCTAVE_EMPTY, full = FULL; 

Dprinrf("x= %d, y= %d, oct= %d sub= %d mode 
%d\n" ,x,y,oct,sub,new_mode); 

for(Y=0;Y<2;Y++) for<X=0;X<2;X++) 

(void)SendTree(newjncKie,x*2+X,y^+Y,z,oct-l,s^ 

if (mt= = OCTA VE_EMPTY && new_mode! - VOID) 
SendToken(OCT_ZERO,channel,sub,oct,ctrl,hist,&full,0); 

} 

retuni(active); 

} 



/• Function Name: SendLPF 
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Description: Encode LPF sub-band 

Ajguments: mode - compression mode 

z - frame number 
Ctrl - compression control record 
hist - history records 

Returns: encodes data 



void SendLPF(roode,z,ctrl,hist) 



CompCtri Ctrl; 
int mode, z; 
Hist hist; 

{ 

Block new, old, pro, lev, addr; 

int channel, channels = Ctrl- >src-> type = =*MONO?l:3, x, y, full = FULL, 
oc ts J urn - Ctrl- > sre- > trans . wa vclet . space [0] t 

5ize[2] = {Size(ctrl->src,0,0)> >octsJum+l,Sizc(ctrl->src,O t l)> >octsJuin+l}; 

for(y=0;y<size[l];y++) for(x=0;x<size[0];x + +) { 
int empty = LPFJEMPTY; 

for(channel=0;channel<channels;channel + +) { 

int octs— ctrl- > sic- > trans, wave let. space [ctrl- > sre- > type= = YUV 
&& channel! =0?1:0), 

new_mode, X, Y, step, value, bits=0; 

double 

norms[3] = {ctrl- > quant_const,ctrl- > thresh_const,ctrl- > cmp_const} ; 



CalcNormals(ctrl,octs-l ,0,channel,norms); 
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step = nonns[0] < 1 .0? 1 : (int)Donus[0] ; 
forfaits =0, 

value =(( 1< < 8 + Ctrl- > dst- > precision)-l )/siep;value ! = 0;bits + +) 

value = value >> 1; 
ReadBlock(Dew,old.addr,x,y,z,octs-l ,0,channel,ctrl); 

/* Proposed */ 

for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) 
pro[X][Y] = old[X][Y] + Quantize(new[X][Y|-old[X] [Y] ,step,&(lev[X][Y])); 
/* MakeDecisions */ 

new mode = mode - - STTLL7STILL: Decision(ncw,oId ,norms(2] ,ctrl- > decide) 1 1 
BlockZero(lev)?STOP:SEND; 

switch(new_mode) { 
case SEND: 

SendToken(LPF_NON_ZERO.channel,0 f octs,cni.hist,&empry,0); 
UpdateCocffs(pro f lev,addr,z f channel,octs,ctrl,hist); 

break; 

case STILL: 

for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) { 

Ctrl- > dst- > data[channel]Iz][addr[X][Y]] = (shon)pro[X][Y]; 

hist- > bits += bits; 

hist- > octbits[channel][octs] + = bits; 

if (ctrl- > bin_switch) { 

unsigned char *byies=CodeInt(levpC][Y],bits); 



bwrite(bytes,bits,ctrl- > bfp); 
XtFree(bytes); 

> 
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} 

break; 
case STOP: • 

SendToken(U > F_ZERO,channel,0,ocis,cul,hisi,&empty,0); 
break; 

} 

} 

if (mode ! = STILL && empty = = LPF_EMPTY) 
SendTokeD(U > F_LOC_ZERO,chaimel,0,octs_lum,ctrl,rust,&ruH,0); 

} 

hist- >lpf= hist- > bits; 

} 

/* Function Name: LookAhead 

* Dcscripiion: Examine base of tree to calculate new quantizer value 

* Arguments: z - frame number 

* Ctrl - compression control record 

* hist - history records 

* Returns: calculates new Ctrl- > quant_const 
*/ 

void LookAhead(z t ctrl,hist) 

CompCtrl ctrl; 
int z; 
Hist hist; 

{ 

int x, y, sub, index, threshlHISTO], decide = Ctrl- > decide, act, 
taract=Feedback(hist,zxtrl- > feedback), 
octs =ctrl- > sre- > trans. wavelet.space[0] f 
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size(2] = {Size(ctrl->src,0,0)> > l + ocis,Size(ctrl->src,0,l)> > 1+octs}; 
Block new, old, addr; 
double old_quant=coi->quani_const; 

Ctrl- > quant_const =1.0; 

for(index = 0; index < HISTO; index + + ) thresh! index] = 0; 
forty =0;y<size[l];y + +) for(x=0;x<size[0];x++) 
for(sub=l;sub<4;sub++) { 

double q_thresb(3], 
nonns(3] = {ctrl- > quant_const,ctrl- > thresh_const,ctrl- > cmp_const} ; 

Block zero_block={{0.0},{0,0}}; 

RcadBlock(new,oId,addr,x,y,2,octs-l,sub,0,ctri); 
CalcNonnals(ctrl t octs-l,sub,0,norms); 

q_thresh[ 1] = (double)Decide(new,zero_block,decide)/DecideDouble(nonns[ 1 1 .decide) ; 

q_thresh(2] = (double)Decide(ne w, old ,decide)/DccideDouble(norms[2] .decide); 

if (BlockZero(old)) q_threshlO]«=q_thresh[l]; 
else qjhrcsh(0] =q_thresh(2] < q - tlaresh(l]?q_threshl2]:q_thresb[l]; 
if (ctrl- > decide ■ = SIGSQR) q_thresh[0] = sqn(q_thresh[01); 

index = (int)((q_thresh[0]-old_quam+HlSTO_DELTA)*HISTO/(HISTO - DELTA*2)); 

index = index < 0?0: index > HISTO- 1 7HISTO- 1 : index; 
thxesh[index]++; 

} 

for(index = HISTO- 1 , act=0;index> =0 && act <taract; index-) 
act+=thresh[index]; 



ctrl- > quant_const = (double)(index + 1 )*HISTO_DELTA *2 .0/HISTO +old_quant-HISTO_ 
DELTA; 

ctrl- > quant_const=ctrl- > quant_const < 0.0?0.0:ctrl- > quam_const; 
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DprintfC Target bits %d act %d (real %d) adjust qjronst to 
%3.2f\n n .hist{z]. target, taract.act.ctrl- > quantconst); 

hist(z].q_const=ctrl- > quant_const; 

Ctrl- > quant_const=Filter(hist.z,ctrl- > feedback. Ctrl- > filter); 
DprintfC Post filtering q_const to %3.2f\n n .ctrl->quant_const); 
if (ctrl->bin_switch) { 

unsigned char •bytes=Codelnt(index+l-HISTO/2,HISTO_BITS); 

bwrite(bytes,HISTO_BITS,ctrl- > bfp); 
XtFree(bytes); 

> 

} 

/* Function Name: CompressStats 

* Description: Compile compression statistics 

* Arguments: Ctrl - compression control record 

* hist - history records 

* Returns: plot graphs 
*/ 

void CompressStats(ctrl.hist) 

CompCtrl ctrl; 
Hist hist; 

{ 

FILE *fp_token, *fp_coeff, *fp_log, *fopen(); 

char file_name[STRLEN]; 

int channel, z, i, sigma; 



sprintf(file name. " %s%s/%s.token%s\0".global- > home,PLOT_DIR,ctrl- > stats_name,P 
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LOT_EXT); 

fp token =fopen(file_name,"w"); 

S p^ l f(f^e_Dame/%s%s/%sxoeff%s\0^global->home,PLOT_DIR.ct^^>stats_Ilame.PL 

OT_EXT); 

fp_cocff = fopen(file_name, " W); 

sprimf(file.naine t " %s%s/7cs.log%s\0",global- > home,PLOT_DIR,cirl- > stats_name,PLO 

T_EXT); 

fpjog = fopcn(file_name, "w"); 
fprintf(fp_ioken, VTokens %s\n" ,ctrl- > name); 
for(i=0;i<TOKENS;i++){ 
sigma =0; 

for(2=0;z<ctri->sre->si2e[2];2+ +) sigma +=hist[2].token[i]; 
fprintf(fp_token,"%d %d\n\i,sigma); 

} 

fprintf (fp.coeff . "\"Coeffs %s\n" .Ctrl- > name); 
for(i=0;i<129;i++){ 
sigma =0; 

for(2 = 0;z < ctrl- > sre- > size (2] ;z + + ) sigma + = hist[z] .coeff[0; 
fprintf(fp_coerT,"%d %d\n",i,sigma); 

} 

for(i=0;i<5;i++){ 

String titles[5] = { "treebits" , "activity" , "quant' , "bits" , " ratio" } ; 

fprintf (fp_log,'\n\" %s\n",titles[i]); 
for(2=0;2< ctrl-> sre- > size[2];z+ +) 

switch(i) { 

case 0: fprintf(rp_log,"%d %d\n\z,rust[z].bits-wst[z].lpf); 
break; 

case 1: fprintf(rp_log,"%d %d\n",z,hist[z]. activity); 
break; 
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case 2: fprimf(fp_log."%d %f\n\z.hist[z].q_const); 
break; 

case 3: rprinrf(fpJog,"*d %d\n M .z t hist[z] -bits); 
'break; 

case 4: fprintf(fp_log, , '%d 
% f\n" .z,(double)(hist[z] .bits-(z = = 0?hist[z] .lpf :0))/(double)bjst(z] .aciiviry); 

break; 

} 

} 

for(channel=0;channel<(ctrl- > src- > rype= =M0N0?l:3);channel+ +) { 

int octs =ctrl- > src- > trans, wavelet, space (Ctrl- > src- > type = = YUV 
&& channel! =0? 1:0]; 

for(i=0;i<=octs;i++) { 

fprintf(fpJog,"\n\"channel %d oct %d\n", channel,!); 
for(z=0;z < Ctrl- > src- > size[2];z+ +) 

fprintf(fp_log, " %d %d\n" .z,hist[z].octbits[channel]Ifl); 

} 
} 

fclose(fpjoten); fclose(fp_coeff); fclose(fpjog); 



Function Name: CopyFrame 
Description: Copy frame or zero 
Arguments: vid - video 

from, to - source and destination frame numbers 

zero • zero out flag 
Returns: alters video- > data 



void CopyFrame(vid,from.to.zcro) 
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Video vid; 

int from, to; 

Boolean zero; 

{ 

int i, channel; 



for(channel=0;channel< (vid- > type = = MONO?l:3);channel+ +) { 
int size » Size(vid, channel,0)*Size(vid,channel, 1); 



for(i=0;i<size;i++) 

vid- > data [channel] [to] [i] =zero?0: vid- > data [channel] [from] [i]; 

} 

} 

/* Function Name: CompressFrame 

* Description: Compress a Frame 

* Arguments: Ctrl - compression control record 

* 2 - frame number 

* hist - history records 

* target - target bits 

*/ 



void CompressFrame(ctrl t 2 f hist t target) 

CompCtrl ctri; 
int z, target; 
Hist hist; 



{ 

Video src=ctrl->src, dst=ctrl->dst; 

int sub, channel, x, y t mode=ctrl->stillvid j | z= =0?STILL:SEND, 
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octsjum = src- > trans, wave let. space [0] , 
sLze[2] = {Sizc<src,0,0)> > 1 +oci$JunhSLze(src,0 ,1)> > 1 +ocisJuitj}; 
NewFrame(dst,z); 

CopyFrame(dst,z- 1, z.ctrl- > stillvid || z==0); 

GetFrame(src,z); 

hist[z]. target = target; 

if (z! =0 && Ctrl- > auto_q) LookAhead(z,ctrl,hist); 
ScndLPF(mode,z,ctrl,&hist(zl); 

Dprintf("LPF bits %d\n",hist[z].lpf); 
hist [z].q_const= Ctrl- > quant_const; 
for(y=0;y<size[l];y++) for(x=0;x<size[0];x++) { 
int empty = EMPTY, full = FULL; 

for(cbannel =0;channel < (dst- > type = = M0N071 :3);channel + +) { 
int octs = src- > trans, wavelet. space[src- > type = = YUV && 

channel! =0?1:0]; 

for(sub=l;sub<4;sub++) { 
Boolean 

active«SendTree(maie,xj,z,c<ts-l,sub,cb^nnel,ctrl,&Wst(z],&empty,0); 

hist[zJ.activiry+=channel = =0 && active; 

} 

switcb(empty) { 
case FULL: 

empty = CH ANNEL_EMPTY; 

break; 

case CHANNEL_EMPTY: 

SendToken(CHANNEL_2ERO,chanrtfKsub,octs-l.ctrl,Mist(z],&full,0) 
break; 
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} 

} 

if (empty = = EMPTY) 
SendTokeD(LOCAL_ZERO,channe],sub,ocis_lum-l,ctTl,«fehist[z],«S:full,0); 

} 

DprintfC Activity: %d\n H ,hist(z]. activity); 
FreeFrame(src,z); 



/* Function Name: SkipFrame 

* Description: Shuffle frame data as if current frame was skipped 

* Arguments: vid - video 

* z - frame number 

* Returns: alien vid- > data 
*/ 



void SkipFrame(vid t z) 

Video vid; 
int z; 



NewFrame(vid,z); 
CopyFrame(vid,z-l ,z,False); 

if(z>l){ 

GetFrame(vid,z-2); 

CopyFrame(vid,z-2,z-l .False); 

FreeFrame(vid,z-2); 

} 



/* Function Name: ComprcssCtrl 
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Description: Perform KLICS on a video 
Arguments: w - Xaw widget 

closure - compression control record 

call_data - NULL 
Returns: compressed video 



/ 



void CompressCtrl(w,closure,call_data) 



Widget w; 

caddr t closure, call data; 



CompCtrl Ctrl = (CompCtrl)closurc; 

int sigma_bits, frame_count, z, i, buffer=0, frames = Ctrl- >src->size[2] t 
bpf_in=(64000*ctrl- > bitrate)/ctrl- > src- > rate, 
bpf_out = (int)((double)(64000*ctrl- > bitrate)/ctrl- > fps); 

FILE *fopcnO; 

char fiIe_name[STRLEN] ; 

HistRec hist [frames]; 

Message msg = NewMessage(NULL, 60); 

msg- > rows = frames > 1 0? 1 1 : frames + (frames = = 1?0:1); msg- > cols = 30; 
if (global- > batch - = NULL) { 

XtCallbackRec callbacksQ = { 

{CloseMessage,(caddrj)msg}, {NULL, NULL}, 

}; 



MessageWindow(FindWidget("frm_compress\w),msg/KUCS" t True,caIlbacks); 
} 

Dprintf ( " CompressCtrl\n ") ; 
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if (cnl->src->rype = = YUV && 
(Ctrl- > src- > tians.wavelet.spaceJO]! =ctrl- > src- > trans. wavelet.space[l J +ctrl- > src- > U 
VsamplefO] 1 1 Ctrl- > src- > UVsampIc(0]! =ctrl- > src- > UVsample[l])) { 

EprintfCY-UV octaves mis-matched. Check UV-sample"); 

return; 

} 

Ctrl- > dst =CopyHeader(ctrl- > src); 
strcpy(ctrl- > dst- > name, ctrl- > name); 
if (Ctrl- > dst- > disk) SaveHeader(ctrl->dst); 
if (ctrl- > binswitch) { 



sprintf(file_name, " %s%s/ %s%s\0" .global- > home,KLICS_DIR,ctrl- > bin_name,KLICS_ 
EXT); 

ctrl- > bfp = bopen(file_name, "w"); 
/* Write some sort of header */ 
WriteKHcsHeader(ctrl); 

} 

for(z=0;z<fraraes;z++) { 
hist [z], bits =0; 
hist[z].lpf=0; 
histfz]. activity =0; 
hist[zj. target =0; 

for(i=0;i<5;i+ +) bist[z].octbits(0][i]=0; 
for(i =0;i <5;i+ +) hist[z].octbits[l][i] =0; 
for(i = 0;i < 5;i + +) hist[z] . octbits[2][i] =0; 
for(i =0;i < TOKENS;! + +) hist{zJ.token[i] =0; 
for(i=0;i< 129;i++) nist[z].coeffli]=0: 
hist[zj.q_const=0.0; 

} 

for(z=0;z<frames;z++) { 

if (z = =0 j | !ctrl- > buf_switch) { 

CompressFrame(ctrl ,z,hist , bpf_out) ; 
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buffer = 3200-ctrl- > bitrate + bpf_in; 

} else { 

Boolean no_skip; 

buffer- =bpf_in; 

buffer = buffer < 0?0: buffer; 

no skip = buffer <6400»ctrl-> bitrate; /• H.261 buffer size */ 
if (ctrl- > bin_switch) bwrite(&no_skip, 1 ,ctrl- > bfp); 
if (no_skip) { 

CompressFrame(ctrl ,z,hist,bpf_out/* + bpf_out/2-buffer*/); 
buffer +=hist[z]. bits; 
} else SkipFrame(ctrl->dst,z); 

} 

if(z>0){ 

SaveFrame(ctrl- > dst,z-l); 
FrecFrame(ctrl->dst,z-l); 

} 

Mprintf(msg,"%s%03d: %d 
bits\n" ,cul- > dst- > name,z +ctrl- > src- > stan,hist[z] .bits); 
Mflusb(msg); 

} 

SaveFrame(ctrl- > dst.ctrl- > src- > size[2]-l); 

FreeFrarac(ctrl- > dst.ctrl- > src- > size[2]-l); 

if (ctrl->bin_switch) { bflush(ctrl->bfp); bclose(ctrl- > bfp); } 

if (Ctrl- > stats_switch) CompressStats(ctrl,hist); 

Dprinrf("Compression Complete\n"); 

sigma_bits=0. frame_coum=0; 

for(z =0;z< ctrl- > src- >size[2];z++) { 

sigma_bits+ =hist(zj.bits; 

if (hist[z] .bits! = 0) frame_count+ + ; 

} 

if (ctrl->buf_switch) { 
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DprintfCBuffer contains %d bits\n",buffer-bpf_in); 
DprintfCFrarae Rate %4.1f 
Hz\n" ,(doublc)(ctrl- > src- > rate*(frame_count-l))/(double)(ctrl- > src- > size[2]-l)); 

} 

if (frames >1) { 

Mprintf(msg, "Total: %d bits\n\sigraa_bits); 
Mflusb(msg); 

} 

Ctrl- > dst- > next = global- > videos; 
global- > videos = Ctrl- > dst; 

} 

/* Function Name: BatchCompCtrl 

* Description: Batch interface to CompressCtrl 
•/ 

void BatchCompCtrl(w,closure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

CompCtrl ctrl=(CompCtrl)closure; 

if (Ctrl- >stc= = NULL) Ctrl- > src = Find Video(ctrl- > src_name, global- > videos); 
CompressCtrl(w t closure,call_data); 

} 

/♦ Function Name: InitCompCtrl 

* Description: Initialise the compression control record 

* Arguments: name - name of the source video 
» . Returns: compression control record 
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CompCtrl InitCompQrl(name) 

String name; 

{ 

CompCtrl Ctrl = (CorapCtrl)MALLOC(si2eof(CompCtrlRec)); 
int i; 

Ctrl- > decide = SIGABS; 
Ctrl- > feedback =4; 
Ctrl- > filter =0; 
Ctrl- > still vid= True; 
Ctrl- > stats_s witch = False; 
Ctrl- > auto_q = True; 
Ctrl- > buf_switch=True; 
Ctrl- > bin_s witch = False; 
ctrl- > cmp_const=0.9; 
cirl- > thresh_const =0.6; 
ctrl- > quant_const =8.0; 
Ctrl- >fps= 30.0; 
ctrl->bitrate = l; 
for<i=0;i<5;i++){ 

double defaults[5] = { 1 .0,0.32,0. 16 f 0. 16,0. 16} ; 

ctrl- > base_factors[i] =defaults[ij; 

} 

ctrl- > diag_factor= 1 .4142136; 
ctrl- > chrome_factor=2,0; 
strcpy(ctrl- > src_name,narne); 
strcpy(ctrl-> name, name); 
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strcpy(ctrl- > stats_name,name); 
strcpy(ctrl- > bin_namc 1 namc); 
return(ctrl); 

} 

/* Function Name: Compress 
* Description: X Interface to CompressCtrl 
•/ 

^define COMPJCONS 25 
#define VIDJCONS 15 

void Compress(w,closure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

Video video =(Video)closure; 

CompCtrl Ctrl = InitCompCtrl(video- > name) ; 

int i, space = video- > trans. wavelet.space[0] + 1; 

Numlnput num_inputs = (NumInput)MALLOC(2*sizeof(NumInputRec)); 

Floatlnput flt_inputs = (FloatInput)MALLOC(6*sizeof(FloatInputRec)) f 

oct_inputs = (noatInput)MAIJ-OC(space*si2eof(FloatIi^utRec)) ; 

Message msg = NewMessage(ctrl- > name,NAME_LEN), 

msg_bin=NewMessage(ctrl- > bin_nanie , N AME_LEN) , 
rasg_stats=NewMessage(ctrI- > stats_name,NAME_LEN); 
XtCallbackRec destroy_call[] = { 
{Free,(caddr_t)ctrl}, 
{Free,(caddr_t)numjnputs} t 
{Free, (caddr J)flt_inputs} , 



r"orT!TMTT cucrr /di » r 



WO 94/233S5 



PCT/GB94/00€77 



- 220 - 

{ Free , (caddr j)oct_ inputs } , 
{CloseMcssage,(caddrj)msg} t 
{ CloseMcssagc, (caddr j)rnsg_bin} , 
{CloseMessage t (caddrj)msg_siats} , 
{NULL, NULL}, 

}; 

Widgei parent = FindWidget("frm_coinpress" ,XtParent(w)), 

shel]=ShellWidget("klics",parent,SW_below,NULL,destroy_caJl), 
form = FormatWidgct("kJics_form" .shell), 

dec shell = ShellWidget("kJics_cng_dec" ,shell,SWjnenu,NULL,NULL), dec_widgeis[3], 

filt shell = ShellWidget("kJics_cng_filt" ,sheU,SW_menu,NULL,NULL), filt_widgets(2], 

widgets[COMP_ICONS] , vid_widgets[VID_ICONS] , 

oct_widgcts(space*2J; 

Forml tern itemsQ={ 

{ "klics_caDcer , "cancel" ,0,0,FW_icon,NULL} , 
{ "klics ^confirm" , "confirm" , 1 ,0,FW_icon,NULL} . 
{"klicsjitlc", "Compress a video",2,0,FW_label,NULL}, 
{ "klics.vidjab", "Video Name: ■ .0,3 .FWJabel.NULL) , 
{ "klics_vid" .NULL.4 ,3 ,FW_text.(String)msg} , 

{ "klics_stats_Iab" , "Statistics: " ,0,4.FWJabel.NULL} , 
{"klics_stats".NULL.4,4.FW_jn,(String)&ctrl- > stats_switch}, 
{ "klics_stats_name " ,NULL.7,4,FW_text,(String)msg_stats} , 
{"klics_binJab","KLICS File:" ,0.6,FW_label,NULL} , 
{"klics - bin",NULL,4,6,FW_yn,(String)&ctrl- > bin_switch}. 

{"Uics_bin_Mme".NULL,10.6.FW_text,(String)msg_bin}, 
{ "klics jiecjab" . "Decision: " .0.9.FW Jabel, NULL} , 
{"kIics_dec_bm"."SigmaAbs".4,9,FW_button,"kJics_cng_dec"}, 
{ "kJics_qn_float " .NULL.0, 12 ,FW_float.(String)&flt_inputs(0] } , 
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{ "k]ics_qn_scroll ".NULL.4 ,12 .FW_scroIl.(String)&flt_inputsfO]} , 



"klicsjhJToat", NULL.O, 1 4 . FW_float, (StriDg)&nt_inpuis[ 1 ] } , 
"kJ ics_th_scroil " , NULL.4 ,14, FW_sc roll , (S tring)& flt_iiiputs[ 1 ] } , 
"kl ics_cm_float " , NULL,0, 1 6. FW_float, (String)&flt_inputs(2] } , 
" klics_cm_scroll ",NULL,4 ,16, FW_scroll , (String)&nt_inputs(2J } , 
"klics_ch_float\NULL,0, 1 8, FW_noat,(String)&flt_inputs[3]}, 

"klics_ch_scroll\NUlX f 4,18,FW_scroll,(StriDg)&flt_iiiputs[3]} t 
"klics_di_noat^NUlX,0.20,FW_noat,(Sl^ing)&^t_inputs[4]} I 
"klics_di_sc^olI^NUIX,4,20,FW_scroll,(Suing)&^t_inpuls[4]}, 
"kJics_oct_fonn " ,NULL,0,22,FW_fonn,NULL} , 
'klics_vid_fonn " ,NULL,0,24,FW_fonn,NULL} , 
}, vid_itemsO={ 

'klics_ic Jab" , "Image Comp: " .O.O.FWJabel.NULL} , 
•klicsjc" .NULL, 1 ,0,FW _yn,(String)&ctrl- > stillvid}, 
kJics_tg_noat",NULL,0,l,FW_noat,(String)&flt_inpuis[5]}, 
klicsjg_scroU" ,NULL, 1 , 1 ,FW_scroll,(String)&flt_inputs[5]} , 
kl ics_px_int " ,NULL,0,3 ,FW_inieger,(String)&num_inpuis[0] } , 

"klics_px_down",NULL, 1 ,3 ,FW_down.(String)&mnn_inputs[01} , 
"klics_px_up" ,NULL,6,3 ,FW_up,(String)&nuni_inpuis[0]} , 
"kJics_auto_lab" , " Auto Quant: " ,0,5 .FWJabel, NULL} , 
"klics_auto",NULL,l ,5,FW_yn,(String)&ctrl- > autojj}, 
"klicsj>uf Jab", "Buffer: " ,0,8,FWJabel,NULL} , 

"klfcsbuT .NULL, 1 . 8 ,FWjn, (String)&ctrl- > buf_switch} , 
"klics J>uf_btn", "None", 1 1 ,8,FW_bunon, "klics_cng Jilt"}, 
"klics - hs_im",NUIi,0,10,FW_uiteger,(String)&num_inputs(l]}, 
" klics Jis_down".NULL, 1 ,10,FW_down,(String)&num_inputs[l J} , 
klics_hs_up" t NULL,14,10,FW_up,(String)&num_inputs[l]}, 
}, oct_items[2*spaceJ; 
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Mcnulicm dec_mcnu[] = { 

{ "Uics_dec_max " .smeBSBObjectClass, "Maximum " .NULL} , 
{• , kJics_dec_abs",smeBSBObjectClass. n SignnAbs".NULL}, 
{ "ldics_dec_sqr" .smeBSBObjectClass, "SigmaSqr" .NULL} . 

}, filt_menu[] = { 

{ "kJics_filt_none " .smeBSBObjectClass . "None" .NULL} , 
{ "klics_filt_exp" .smeBSBObjectClass, "Exp", NULL} , 

XtCallbackRec callbacksQ = { 
{Destroy,(caddr_t)shell} , 
{NULL.NULL}, 
{CoxnpressCtrl,(caddr_t)ctrl} , 
{ Destroy. (caddij)shcll} . 
{NULL.NULL}, 

{ Change YN,(caddrj)&ctrl- > stats_switch} , {NULL.NULL} , 
{Change YN,(caddrj)&ctrl- > bin_switch}, {NULL,NULL}, 
{FloatlncDec ,(caddr_t)&flt_inputsIO]} , {NULL.NULL} , 
{FloatIncDec.(caddrj)&flt_inputstl]}, {NULL.NULL} , 
{FloatlncDec .(caddi j)&flt_inputs(2]} , {NULL.NULL} , 
{FloatIncDec,(caddr_t)&nt_inpuis{3]}. {NULL.NULL} , 
{ FloatlncDec , (caddr_t)&flt_inputsI4] } , {NULL.NULL} , 

}, vid_callD={ 

{Change YN,(caddr_t)&ctrl- > stUlvid} , {NULL.NULL} , 
{FloaancDec,(caddi_t)&nt_inputs{5]}, {NULL.NULL} , 
{NumIncDec,(caddrj)&num_inputs[OJ} , {NULL.NULL}, 
{NumIncD€C,(caddr_t)&num_inputs[OJ} , {NULL.NULL}, 
{Change YN,(caddr_t)&ctrl- > auio_q} , {NULL.NULL} , 
{Change YN,(caddrj)&ctrl- > bufjwitch}, {NULL.NULL}, 
{NuraIncDec.(caddr_t)&num_inputs( 1 J} , {NULL.NULL} , 
{NumIncDec.(caddr_t)&num_inputs[ 1]} , {NULL.NULL}, 

}. dec_callQ = { 

{SimpleMenu,(caddr_t)&ctrl- > decide} , {NULL.NULL}, 
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{Simp]eMenu,(caddrj)&ctrl- > decide} , {NULL.NULL}, 
{SimpleMenu,(caddr_t)&ctrl->decide}, {NULL.NULL}, 

}, filt_caI10 = { 

{SimpleMenu,(caddr_t)&ctrl-> filter}, {NULL, NULL}, 

{SimpleMenu,(caddi_t)&ctrl- > filler}, {NULL, NULL}, 

}, oct_call[2*space]; 

XFontStruct *font; 

Axg args[l]; 

msg- > rows = 1 ; msg- > cols = NAME_LEN; 
rasg_siats->rows= 1; msg_stats->cols=NAME_LEN; 
msg bin- > rows = 1 ; msg_bin- > cols = NAME_LEN; 
Ctrl- >src= (Video)closure; 

flt_inputs[0] .format* "Quant: %4.1F; 
flt_inputs[0].max= 10; 
flt_inputs[0].min=0; 

flt_inputs[0] . value = &ctrl- > quant_const; 

fltjnpuis[l]. format= "Thresh: %4.1f; 

flt_inputs[l].max=10; 

flt_mputs[l].min=0; 

flt_inputs[l] .value = &ctrl- > thresh_const; 

flt_mputs[2].format="Comp: %4.ir; 
flt_inputs[2].max= 10; 
flt_inputs[2J.min=0; 
flt_inputs(21.value= &ctrl->cmp_const; 

flt_inputs[3]. format = "Chrome: %4.1f; 
nt_inputs[3 J . max = 5 ; 
flt_inputs[31.min=l; 
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flt_inputs[3] . value = &ctrl- > chrome_factor; 

flt_inpuis[4], format = M Diag: %4.1T; 
flt_inputs[4] . max =2.0; 
flt_inputs[4].min= 1 .0; 
flt_inputs[4] . value = &ctrl- > diag_factor; 

fli Jnputs[5]. format = "Target: %4.1P; 
flt_inputs[5] .max = 30.0; 
flt_inputs[5].min= 10.0; 
flt_inputs[5] . value = &ctrl- > fps; 

num_inputs{0]. format « fl px64k: %ld"; 
num_inpu ts [0] . max = 8 ; 
num_inputs[0] .min = 1 ; 
num_inputs[0] .value = &ctrl- > bitrate; 

num_inputs[l]. fonnat= "History: %ld"; 
nuxn_inputs( 1 ] . max = 8; 
num_ inputs ( 1 ). min = 1 ; 
mun_inputs[l]. value = &ctrl- > feedback; 

for(i=0;i<$pacc;i++) { 

String format = (char ')MALLOC(20); 

if (j==0) sprintf(format, "Octave LPF: %%4.2r); 
else sprintf(format t "Octave %3d: %%4.2f\space-i-l); 
oct_inputs[i] .format « format; 
oct_inputs(i] .max = 1 .0; 
oct_inputs[i].min=0.0; 

oct_inputs[i]. value = &ctrl-> base_factors[space-i-l]; 
oct items[2*i].name="klics_oct_float H ; 
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oct_items[2*fl. contents = NULL; 
oct_itcms[2*i].ftomHori2=0; 
oct_items(2*i].fromycn=i==0?0:2*i-l; 
oct_items[2 *i] . type = FW_float; 
oct_items[2 * i] .hook = (String)&oct_inputs [i] ; 
oct_items[2*i+ lj.name = "klics_oct_scroir; 
octjtems[2»i + l].contents =NULL; 
oct_items[2*i + 1 ].fromHoriz = 1 ; 
octjtems(2*i+ l].fromVen-i= =0?0:2*i-l; 
oct_items[2*i + 1] .type = FW_scroll; 
oct_items[2*i + 1] .hook = (String)&oct_inputs[fJ; 
oct_call[2»i] . callback = FloatlncDec ; 
oct_call[2*i] .closure = (String)&oct_inputs[i] ; 
oct_call[2*i+ l].callback=NULL; 
oct_call[2*i+ ll.closure = NULL; 

} 

FillFonn(fonn,COMPJCONS-(video- > size[2] > I?0:l),items,widgets,callbacks); 
FillFonn(widgets[23] ,2*space.oct_items ,oct_widgets ,oct_call); 
FillMenu(dec_sbeU,7HREE,dec_menu,dec_widgets,dec_caU); 
font = FindFont(widgets[ 12]); 

XtSetArg(aigs[0],XtNwidth,2+TextWidth(0/Maximuin\iiSigmaAbs\nSigmaS 

XtSetValues(widgets(12],axgs,ONE); 

if (video- > size[2] > 1) { 

FillFonn(widgets[24] , VID JCONS , vid_items,vid_widgets, vid_call); 

FillMenu(filt_shell f TWO,filt_menu,rilt_widgets,filt_call); 
font = FindFont(vid_widgets[ 11]); 

XtSetArg(args[0],XtNwidth,2 +TextWidth(0, "None\nExp" .font)); 
XtSetValues(vid_widgets[ 1 1] ,args,ONE); 

} 

XtPopup(shell.XtGrabExclusive); 

} 
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source/KlicsSA.c 



/* 

Full still/video Knowles-Lewis Image Compression System utilising HVS 
properties 

and delta-tree coding 

Stand-Alone version uses fixed image format and sialic data structures 

*/ 

^include "KlicsSA.h" 
^include <math.h> 

extern void ConvolveO; 

/* useful X definitions */ 

typedef char Boolean; 

#define True 1 

^define False 0 

#define String char* 

/• token modes (empty) */ 

#defme EMPTY 0 

#define CHANNEL_EMPTY 1 

^define OCTAVE_EMPTY 2 

#define LPF_EMPTY 3 

#define FULL 4 

/* Function Name: AccessSA 

* Description: Find index address from co-ordinates 

* Arguments: x t y - (x f y) co-ordinates 
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» oct, sub, channel • octave, sub-band and channel co-ordinates 

• Returns: index into data[channelJQ[index] 
•/ 

int AccessSA(x,y,oct,sub.channel) 
int x, y, oct, sub, channel; 
{ 

return(((x < < l)+(sub> > 1)+(SA_W1DTH> > (channel= =0?0:l))*((y < < l)+(l&sub) 

)) < < oct); 

} 

/• Function Name: DecideSA 

* Description: Calculate value representing the difference between new and old 
blocks 

• Arguments: new, old - blocks to compart 

* Returns: difference value 
*/ 

int DecideSA(new.old) 
Block new, old; 

{ 

int X, Y, sigma=0; 

for(X=0;X<BLOCK;X + +) for(Y=0;Y< BLOCK; Y++) 

sigma+ = abs(new[X]rY]-oW[X][Yl): 
rerurn(sigma); 

} 
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/* Function Name: DecideDoubleSA 

* Description; Calculates norma] w.r.t differencing algorithm 

* Arguments: norm - normal value 

* Returns: new normal value 
♦/ 

double DecideDoubleSA(nonn) 
double norm; 

{ 

retuni(4.0*norm); 

} 

Boolean DecisioDSA(new,old,nonn) 

Block new, old; 
double norm; 

{ 

reruxn((doublc)DecidcSA(ncw.old) < =DecideDoubleSA(norm));- 

} 

/* Function Name: HuffmanSA 

* Description: Calculates the number of bits for the Huffman code representing 
level 

* Arguments: level - level to be encoded 

* Returns: number of bits in codeword 



int HuffmanSA(level) 
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int level; 
{ 

rerurn(level = =0?2:(abs(level)<3?3:l +abs(level))); 

} 

/* Function Name: HuffCodeSA 

* Description: Generates Huffman code representing level 

* Arguments: level - level to be encoded 

* Returns: coded bits in char's 
•/ 

unsigned char *HuffCodeSA(level) 
int level; 

{ 

unsigned char *bytes= (unsigned char *)MAIJ-OC((7+Huffman(level))/8); 

bytes[0] = (abs(level) < 3?abs(level):3) | (level < 0?4:0); 
if (abs(level) > 2) { 

int index=(7+Huffman(level))/8-l; 

bytes[indcx]=bytes[index] | (1< < (Huffman(level)-1)%8); 

} 

retum(bytcs); 

} 

unsigned char *CodcIniSA(nunibcr,bits) 
int number, bits; 
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{ 

int len=(7+bii5)/8; 

unsigned char "bytes = (unsigned char *)MALLOC(len); 
int byte; 

for(byte=0;byte<len;byte ++) { 
bytes [byte] = Oxff&number: 
number = number > > 8 ; 

} 

rerura(bytes); 

} 

int ReadIntSA(bits.bfp) 

int bits; 
Bits bfjp; 

{ 

int len=(7+bits)/8; 
unsigned char bytes[len]; 
int byte, number =0; 

bread(bytes,bits,bfp); 

for(byte =0;byte < len;byte+ +) 

number = number | ((im)bytesfbyte] < < byte*8); 
number = (number < <sizeof(int)*8-bits)> > sizeof(int)*8-bits; 
rerurn(number); 

} 

/* Function Name: HuffRcadSA 

* Description: Read Huffman encoded number from binary file 

* Arguments: bfp - binary file pointer 
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* Returns: decoded level 
*/ 

int HuffReadSA(bfp) 
Bits bfp; 

{ 

int value; 

unsigned char byte; 
Boolean negative - False; 

bread(&byte,2,bfp); 
value =(int)byte; 
if (byte = = '\0') return(O); 
else { 

bread(&byte,l,bfp); 
negative = (byte! = '\0'); 

} 

if (value < 3) renirn(negif(negative,value)); 

for(byte = *\0' ;byte = = *\0' ;value + +) bread(&byte, 1 ,bfp); 

return(negif (negative , value- 1 )) ; 

}. 

/* Function Name: QuantizeSA 

* Description: RM8 style quantizer 

* Arguments: data - unquantiscd number 

* q - quantizing divisor 

* level - quantised to level 

* Returns: quantized data & level 
*/ 
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int QuaniizeSA(data,q, level) 
int data, q, *level; 

{ 

int magje ve I = abs(data)/q ; 
•level = negif(data < 0,mag Jevel); 

returD(negif(daia<0,magJevel*q + (raagJeveI!=0?(q-l)> > 1:0))); 



/ 



Function Name: ProposedSA 
Description: Calculates proposed block values 
Arguments: pro - proposed block 



lev - proposed block quantized levels 
old, new - old and new block values 



norms • HVS normals 



Returns: 



new = =0, proposed values (pro) and levels (lev) 



7 



Boolean 



Proposed SA(pro , le v , o Id , new , norms) 



Block pro, lev, old, new; 
double norms [3]; 



Block zero_block={{0 f 0},{0,0}}; 

int X, Y, step = nonns[0] < 1 .071 :(int)norms[0] ; 

Boolean zero = Decisions A(new,zero block,norms!l]); 



for(X =0;X < BLOCK;X + +) for(Y=0; Y < BLOCK; Y + +) 
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pro[X][Y]=2ero?0:old[Xl[Y]+Quanti2e(ncw[Xl[Y]-old[X][Y].stcp.&ncvpq[Y])); 
return(zero); 

} 

/* Function Name: ZeroCoeffsSA 

* Description: Zero out video data 

* Arguments: data - image data 

* addx - addresses 

* Returns: zeros data[addrQQ] 
•/ 

void ZeroCoeffsSA(data.addr) 

short *data; 
Block addr; 

{ 

int X, Y; 

for(X=0;X<BLOCK;X+ +) for(Y=0;Y< BLOCK; Y++) 
dataIaddr[X][Y]]=0; 

} 

/* Function Name: BlockZeroSA 

* Description: Test if all block values are zero 

* Arguments: block - block under test 

* Returns: block = =0 
*/ 

Boolean Block2eroSA(block) 



Block block; 
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{ 

int X, Y; 

Boolean zero = True; 

for(X = 0;X < BLOCK;X + +) for(Y=0; Y < BLOCK; Y + +) 

if (block[X][Y]!=0) zero - False; 
return(zero); 

) 

/* Function Name: SendTokenSA 

Description: Increments token frequency 
Arguments: token - token to be transmitted 

channel, sub, oct - co-ordinates 
bfp - binary file pointer 

empty - zero state {EMPTY | CHANNEL_EMPTY 
OCTAVE EMPTY | LPFEMPTY | FULL} 

branch - branch of tree (0-3) 
Returns: encodes token 

/ 

void SendTokenSA(token.channel,sub,oct,bfp,empry .branch) 

int token, channel, sub, oct, •empty, branch; 
Bits bfp; 



{ 

int full = FULL, i; 
String 

token namelTOKENS] = { "ZERO_STILL" , *NON_ZERO_STILL" , "BLOCK_SAME" , "ZE 
RO VID-,"BLOCK_CHANGE*, 



"LOCAL.ZERO " . "LOCAL_NON_ZERO". "CHANNEL_ZERO" , "CHANNEL_NON_ZE 
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RO" , "OCT_ZERO", "OCT_NON_ZERO\ 

" LPF.ZERO' . "LPF_NON_ZERO ; . "LPF_LOC_ZERO" . *LPF_LOC_NON_ZERO" } ; 

switch(*erapry) { 
case EMPTY: 

if (token! =ZER0_ST1LL && token! = BLOCK_S AME) { 

SendTokenSA(LOCAL_NON_ZFJ^O,chaimel,sub,oct,bfp,&nill,branch); 

for(i = 0;i < channel;! + +) 
SendTokenS A(CHANNEL_ZERO ,i ,sub,oct t bfp,&full . branch); 

*cmpty=CHANNEL_EMPTY; 
ScDdTokcaSA(iokcn,channcl,sub,oct,bfp, empty, branch); 

} 

break; 

case CHANNEL_EMPTY: 

if (token! = ZERO_STTLL && token! = BLOCK_S AME) { 

SeridTokenSA(CHANNEL_NON_ZERO,cb^^ 

for(i«=l;i<sub;i++) 

SendTokenSA(tokcn= = NON_ZERO_STIlX?ZERO_STIli:BLOCK_SAME.channel,i,oc 
t,bfp,&full,branch); 

•empty = FULL; 

SewITokcnSA(token,cliaimcl.sub,oct,bfp,empty,branch); 

} 

break; 

case OCTA VE_EMFTY : 

if (token! =ZERO_STILL && token! = BLOCK_S AME) { 

SendTokenSA(OCT - NON_ZERO.chani»el,sub,oct,bfp.&full,branch); 

for(i=0;i < branch;i + +) 
SendTokenS A(token= = NON_ZERO_STlLL?ZERO_STILL:BLOCK_SAME,channel.sub 
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,oct,bfp,&full. branch); 

*cmpty = FULL; 

SendTokenSA(token, channel, sub.oc^bfp.empty, branch); 

} 

break; 
case LPF_EMPTY: 

if (token! = LPF_ZERO) { 

SendTokenSA(LPF_LOC_NON_ZERO,channel,sub,oct,bfp,&full,branch); 

for(i =0;i < channel;i+ +) 
SendTokenSA(LPF_ZERO,i,sub,oci,bfp,&full,branch); 

•empty = FULL; 

ScndTokcnSA(tokcn.channcl,sub,oct,bfp,cmpty, branch); 

} 

break; 
case FULL: 

DprintfC %s\n" t token_nameItoken]); 

bwrite(& tokcn_codes [token] , token_bits [token] , bfp) ; 

break; 

} 

} 

/* Function Name: ReadBlockSA 

* Description: Read block from video 

* Arguments: new, old, addr - new and old blocks and addresses 

* x, y , oct, sub, channel - co-ordinates of block 

* sre, dst - frame data 

* Returns: block values 



7 



void 



ReadBlockSA(new,old t addr,x f y f oct,sub,channel.src,dst) 
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Block new. old, addr; 

int x, y. oct, sub, channel; 

short *src[3], -dst[3]: 

{ 

int X, Y; 

for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) { 

addi[X][Y]=AccessSA((x< <1)+X,(y< < l)+Y,oct,sub,channel); 
ncw[Xl[Y] =(int)src[channcl][addr(X][Yl]; 
oldpqiY] = (int)dst[channcl][addrPq[Yl]; 

> 

} 

/* Function Name: CalcNormalsSA 

* Description: Calculates HVS weighted normals 

* Arguments: oct, sub, channel • co-ordinates 

* norms - pre-initialised normals 

* Returns: weighted normals 
•/ 

void CaJcNormals5A(oct,sub,channel, norms, quant_const) 

int oct, sub, channel; 

double nonns[3], quant_const; 

{ 

int norm, base_oct=oct+(channel!=0?l:0)+(sub= =0?1:0); 

for(norm=0;norm<3;norm++) { 

if (norm! =0) norms[nonn] *= quaitt_const; 

nonnsfnorm] *= base_faaors[base_oct]*(sub==3?diag_faaor:1.0); 
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if (chaimel! = 0) normsfnorm] *= chrome_ factor: 
normsfnorra] •=(double)(l< < SA_PREC1S10N); 

} 

} 

/* Function Name: MakeDecisions2SA 

* Description: Decide on new compression mode from block values 

* Arguments: old, new, pro - block values 

* zero - zero flag for new block 

* norms - HVS normals 

* mode - current compression mode 

* decide - comparison algorithm 

* Returns: new compression mode 
*/ 

int MakeDecisions2S A(old , ne w , pro f lev t zero , norms ♦ mode) 

Block new, old, pro, lev; 
Boolean zero; 
double nonns[3]; 
int mode; 

{ 

Block zeroj>lock={{0 f 0},{0,0}}; 

int new jnode = mode = = STILL || BlockZeroSA(old)?STlLL:SEND, 
np=DecideSA(new,pro), no=DecideSA(new,old); 

if (new_mode= = STILL) newjnode=np> =no | j zero 1 1 
BlockZeroSA(lev)?STOP:STILL; 

else newjnode=zero && np<no?VOID:np> =no 1 1 
DecisionSA(new,old,norms[2]) 1 1 BlockZeroSA(lev)?STOP:SEND; 

retum(new_mode); 
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} 

/* Function Name: UpdateCoeffsSA 

* Description: Encode proposed values and write data 

* Arguments: pro, lev, addr - proposed block, levels and addresses 

* channel, oct • co-ordinates 

* dst - destination data 

* brp - binary file pointer 

* Returns: alters dst(channel][addrQO] 
*/ 

void UpdateCoefTsSA(pro,lev t addr,channel,oct,dst t brp) 

Block pro, lev, addr; 
int channel, oct; 
short *dst[3]; 
Bits bfp; 

{ 

int X, Y; 

for(X=0;X<BLOCK;X++) for(Y=0;Y<BLOCK;Y++) { 
int bits=HuffmanSA(lev[X][Y]) f 
level =abs(lev[X][Y]); 
unsigned char *bytes=HuffCodeSA(lev[X][Y]); 

dst[channel][addr[X][Y]l = (short)proIX]rY] ; 

bwrite(bytes,bits,bfp); 

XtFree(bytes); 

} 

} 
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Funcuon Name: SendTrecSA 

Description: Encode tree blocks 

Argument: prev_mode * compression mode 

x, y, oct. sub. channel - co-ordinates 
empty - token mode 
branch - tree branch number 

Re aims: acrive block indicator 



Boolean 

SciuiTrceSA(prcv - mode.x,y f oct.sub^ 

ini prcv_mode, x f y, oct, sub, channel, •empty, branch; 
shon *sic[3], *dsi(3]; 
double quam_const; 
Bits bfjp; 

{ 

Block addr. old, new, pro, lev; 
int new_mode. X, Y; 

double nonnsf3]«{quam_const.thresh_const.cmp_const}; /* quant, thresh, 

compare */ 

Boolean active = False; 

ReadBlockSA(new,old.addr.x,y,oa.sub.channel.src.dst): 
if (prcvjnode! = VOID) { 
Boolean zero; 

CalcNormalsSACoct.sub.chanhel.nonns.quani^const); 
zcro=ProposedSA(proJev,old,new,norms); 

new mode= MakeDecisions2SA{old.new.pro,lev.2ero.nonns.prev_mode); 
switcWnewjnode) { 
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case STOP: 

SeadTokenSA(prcv_mode= = STILL |j 
BlockZeroSA(old)?ZERO_STllX':BLOCK_SAME.channel.sub.oct.bfp.empty.braix:h); 

break: 
case STILL: 
case SEND: 

active = True; 

ScndTokenSA(prcvjnode=«STILL |j 
BlockZcro(old)?NON_ZERO_STIIX:BLOCK_CHANGE.cbannel.sub.oct.blp,cmpry t bran 

ch); 

UpdaieCoeffsS A(pro , lev ,addr,channel.oci,dsi.bfp) ; 
break; 
case VOID: 

S^TokeoSACZERO.VID.cbaiuiel.sub.oa.bfp.einpry.braiicb); 

ZeroCoeffsSA(dst(cbaniie!),addr); 

break: 

) 

} else { 

if (BlockZeroSA(old)) new_raode=STOP; 
else { 

ZeroCoeffsSA(dst[channeH,addr); 
new_mode=VOID; 

> 

} 

if (oct > 0 Sl8l new_mode! - STOP) { 

im mi = OCTA VE_EMPTY, full = FULL; 



Dprintf("x=%d, y= %d, oct-%d sub«%d mode 
%d\n".x.y.oct.sub.new_mode): 

for(Y=0:Y<2;Y++) for(X=0;X<2;X++) 



(void)SendTreeSA(new_mode.x'2+X.y , 2 + Y.oci-l.sub.channel.src.dst.&mt.X+2*Y.qua 
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nt_const.bfp); 

if (mt= = OCTA VE_EMPTY && ncw_modc! = VOID) 
ScndTokenSA(OCT_ZERO.channci.sub.oct.bfp,&full.O); 

} 

rerurn(active); 



} 



Function Name: SendLPF_SA 
Description: Encode LPF sub-band 
Arguments: mode - compression mode 
Returns: encodes data 



void SendLPF^SA(mode,src,dst.b^p,quant - const) 

int mode; 

short *src[3J, # dst{3]; 

Bits bfp; 

double quani_const; 

{ 

Block new, old, pro, lev, addr; 
int channel, channels =3, x, y, full = FULL, 
octsJum=3, 

size(2) = {SA_WlDTH> >octsJuro+l.SA_HEIGHT> >octsJum+l}; 

for<y=0:y<size[l];y + + ) for(x=0;x<size(0];x ++) { 
int empty = LPF_EMPTY; 

for(channel=0;channel<channejs:channel + + ) { 
int octs » channel !=0?2:3. 
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newjnode, X, Y, step, value, bits=0; 
double nonns(3] = {quant_const,ihresh_const.cmp_consi}; 



CalcNorauisS Afocis- 1 , 0, channel .norms, quam_const) ; 
sicp=norais(0] < 1.0?l:(int)norms[0]; 

for(bits=0, value=((l< <8 + SA_PRECISION)-l)/step;value»=0:biis + +) 

vaJuc= vaiuc> > 1; 
RcadBlc«kSA(new. old, addr,x,y,octs-1.0. channel, src.dst); 

/• Proposed */ 

for(X=0;X < BLOCK:X + +) for(Y =0; Y < BLOCK;Y + +) 

pro(X][Y] =old[X]fY] +QuanmeSA(new[Xim^ldfX]rYl,$tq),&(lev[X][Y])); 
/* MakeDecisions */ 

newjnode = mode «= «= SHLL?STILL:DccisionSA(ncw,old.nonns(2]) 1 1 
BlockZeroSA(lev)?STOP:SEND; 

swiicb(new_mode) { 
case SEND: 

ScndTokenSA(LPF_NON_ZERO.channel.0,octs,brp,&empty,0); 
UpdateCoeffsSA(pro,lev.addr,chaiinel.octs,dst,bfp); 

break; 

case STILL: 

for(X=0:X<BLOCK;X++) for(Y=0:Y< BLOCK: Y++) { 
unsigned char 'bytes =CodeIntSA<lev(X][Y], bits); 

dst(channel][addr(X]m] = (shon)pro(XlIY]; 
* bwrite(bytes.bits.bfp); 

XiFree(bytes); 

} 

break: 
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case STOP: 

SendTokenSA(LPF_ZERO.c}uiincl.0.ocu.bfp.&cmpty,0); 
break: 

} 

} 

if (mode! = STILL &A empty = = LPF_EMPTY) 
SeDdTokenSA(LPF_LOC_ZERO.channel.0,ocisJum.bfp,&full,0); 

} 



} 



Function Name: CompressFrameSA 
Description: Compress a Frame 

Arguments: mode - compression mode STILL or SEND 

arc, dst * source and destination data 
bfp - binary file pointer for result 
quani_consx - quantization parameter 



void ComprtssFrameSA(mode,srt t dst.bfp t quam_const) 

int mode: 

short *src[3], *dst(3]; 

Bits bfp; 

double quant_const: 

{ 

int sub. channel, x. y, i. 

octs_lum=3, 

size|2] = {SA_WIDTH> > 1 +octsJum.SA_HEIGHT> > l+octsjum}; 
for(channel=0: channel < 3 :channel++) { 



WO 94/23385 



PCT/GB94/00677 



- 245 - 

iiu 

frarac_si2e[2] = {SA_WlDTH> > (channel = =0?0:1).SA_HHGHT> >(channel==0?0:l 
)}• 

fnune_ajea = frame_size{0]"frame_size(l]; 



for(i=0;i < frame_area;i + + ) 
src(channel][i] « src(channei]lij < < SA_PRECISION; 

Convolve(src[channcl] .False,frame_size.0.channel = =0?3:2); 

} 

bwrite((char *)&quaai_conn.sizeof(double)*8,b^p); 
ScndLPF_SA(mode,sic,dst.bfjp 1 quant_coiist); 
for(y=0:y<size(l];y++) for(x-0:x<size(0];x++) { 
ini empty = EMPTY, full = FULL; 



for(chaiinel=0:channel<3;chaanel+ +) { 
int oca = chancel! =072:3; 

for(sub= l;sub<4;sub++) 
(void)SendTreeSA(roode,x,y,octs-l.sub.chaiinel,sn:.^ 

switch(empiy) { 
case FULL: 

empty =CHANNEL_EMPTY; 

break: 

case CHANNEL_EMPTY: 
SendTokenSA(CHANNEL_ZERO.cbannel.sub,octs- 1 ,bfp,&full.0); 

break; 

} 

} 

if (empty == EMPTY) 
SendTokenSA(LOCAL_ZERO.channei.sub,octs_lum- 1 ,bfp,&full,0) ; 

} 

} 
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source/KlicsTeslSA.c 



^include "xwave.tf 
include "KlicsSA.iT 

extern void ComprcssFramcSA(); 

typedcf struct { 
Video sre; 

char binjiame[STRLEN]; 
Boolean stilivid; 
double quant_const; 
} KlicsCtrlRec, •KlicsCtrl: 



/• Function Name: KlfcsCtrlSA 

* Description: Test hamrm for KlicsSA in xwave 

• Arguments: w - Xaw widget 

• closure - compression control record 

calljlata . NULL 

* Returns: send data to binary file 
*/ 

void KlicsCmSA(w,ciosurc,calljiata) 

Widget w; 

caddrj closure, calljiata; 



{ 

KlicsCtrl cirl=(KHcsCtrl)closure: 
im size Y = SA_ WIDTH *SA_HEIGHT, 
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sizcUV = SA_WlDTH*SA_HEIGHT/4 . i. 2; 
shon "dsi(3]*{ 

(sbon *)MALLOC(si2eof(shon)*si2cY), 
(sbon •)MAI±OC(sizeof(shon)»$izeUV), 
(shon •)MALLOCfsizeof(shon)»sizeUV) 1 

}. 'src(3]={ 

(shon •)MAIXOC(siz*of(shon)»sizeY), 
(shon •)MALLOC(si2eof(shon)*si2eUV), 
(shon •)MAI10C(sizeof(shon)»sizeUV), 

}; 

char file_name(STRLEN]; 
Bits bfp; 

Boolean true = True, false = False; 

Mi=0;i<si2eY;i++)dsi(0]Ii]=0; • 
for<i=0:i<sizeUV;i++) { dst(l][i]=0; dsi(2][i]=0; } 

sprintf(File_name. "%s5&s/%s5£s\0\global- > home.KLICS_SA_DIR.cirl- > bii_name.KLI 
CS_SA_EXT); 

bfp= bopen(file_name, "w"); 

bwrite(&ctrl- > stillvid, 1 ,bfp); 

bwrite(&ctrl- > src- > size(2],sizeof(im)*8,bfp); 

forfz*0:z<ctrl->src->size(2];z++) { 
GetFiame(ctrl> > src.z); 

for(i= 0;i < size Y:i + + ) src(0] [i] =ctrl- > src- > data(01[z] [i] ; 
for<i-0:i<sizeUV;i++) { 

src( =ctrl- > src- >daia( 1 ][z][i]; 

src(2][i] -cirl- > src- > daia(2J[zJ[i]; 

• } 

ComprcssFramcSA(2= =0 |j 
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ctil- > stiilvid?STILL;SEND.src.clst.bfp.cirl- > quant_const); 
FrrcFramefctil- > src.z); 

} 

bflush(bfp): 

bclose(bfp); 

XtFree(dst[0]); 

XtFrcc(dst[l]); 

XiFrce(dsi[2]); 

XtFrce(src(01); 

XiFree(src[l]); 

XiFrce(src(2]); 

} 

KlicsCtrl InkKJicsCtrl(name) 

String name; 

{ 

KJicsCtri ctri=(KlicsCtrl)MALLOC(si2tof(KlicsCtrlRec)); 

Ctrl- > scillvid = True: 
Ctrl- > quani_const=8.0; 
strepy(ctxl- > bin_name.name): 
reairn(ctrl); 

} 

#define KUCSJAJCONS 8 
^define KLICS_SA_VIDJCONS 2 

void KlicsSA(w.c!osurc.caII_data) 



Widget 



w: 
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caddr t closure, call data: 



Video video = (Vidco)closure: 

KlicsCtrl Ctrl = IniiKJicsCtrl(video-> name); 

Floailnpur flt_inputs = (Floadiipm)MAIiOC(sizeof(noatlnputRec)); 

Message msg_bin=NewMessage(ctrl->bin_name,NAME I FN); 

XtCallbackRec de*roy_caJin = { 

{Free.(caddr_t)ctrl}. 

{Free,(caddrj)fltjnpuis}, 

{GoseMessage,(caddr_t)msg_bin} , 

{NULL.NULL}, 

}: 

Widget parent * Find Widget( " frm_comprcss " .XtParcni(w)), 

shell = ShellWidget( "klicsSA" ,paiem.SW_below,NULL,de5iroy_caU). 

form = Forma: Wldget< "klicsSAJonn" .shell), 
widg«s(KUCS_SAJCONSl, 
vid_widgeis(KLICS_S A_VID jCONS] ; 
Formiiem iiems(] = { 

{ "klicsS A_canceT . "cancel" ,0.0,FW_icon.NULL} , 
{ "klicsSA_confiro\ "confirm" , 1 ,0,FWJcon.NULL} , 
{"kJicsSAjitleVRun Klics SA',2,0.FWJabel.NULL}, 
{"ldicsSA_binJab"."KLICSFUe:",0,3.FWJabel,NULL}. 
{ "kJicsSAbinname " . NIJLL.4 ,3 ,FW jext. (String)msg_bin} . 

{"klic^A_qn_noat".mJU..OJ.FW_noat.(String)&flt_inputs[OI}. 
{ "klicsSA_qn_scroll" .NUli.6.5.FW_scroll.(String)&nt_inputs[0] } , 
{ "k!icsSA_vid_fonn" .NULL.0,7,FW_form. NULL} , 
}, vid_itcms(]={ 

{ "klicsSA Jc Jab" . "Image Comp: " .O.O.FWJabel.NULL} , 
{"klicsSA_ic".NULL.1.0.FW_yn,(String;&cirl- > stillvid}, 

}; 
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XtCaJlbactRec callbacks!] = { 
{ Destroy . (caddrj )shell } , 
{NULL.NULL}, 
{KlicsCtrlSA.(caddr_i)ctrl). 
{ Destroy . (caddrj)shell} . 
{NULL.NULL}, 

{noailrx:Dec.(caddr_t)&flt_inputslOJ}, {NULL. NULL}, 

}, vid_call[] = { 

{CbangeYN,(caddr_t)&ctrl-> stillvid}, {NULL.NULL}, 

}; 

Ctrl- >src= video: 

msg_bin-> rows= 1: msg_bin- > cois = NAME_LEN; 

fit ir^3uts(0]. formats "Quani: %4.lf": 
flt_inputs(01 .max= 10; 
flt_inpuis(0].niin-0; 

fit inpiits(0]. value = &ctrl- > quant_const: 

FillFonn<fonn.KLICS_SAJCONS-(video- > size{2] > l?0:l).items.widgets.callbacks); 
if (video- >size(2]>l) 

FillForm(widgets(7],KLICS_SA_VIDJCONS,vid_iiems.vid_widgets.vid_caU); 
XtPopup(shell.XtGrabExclusive); 

} 
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source/Malloc.c 



/* 

Memory allocation routine 

•/ 

^include <stdio.h> 
char •MALLOC(size) 
int size; 
{ 

char *ptr=(char •)calloc(l,size); 

if (ptr = = NULL) EprimfC Unable to allocate %d bytes of memory\n".size); 
retum(ptr); 

} 



j 
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source/Menu.c 



* 

• Pull-Right Menu functions 



^include <stdio.h> 
^include < XI 1/IntrinsicP.h > 
^include < XI l/StringDcfs.h> 



^include <X11/Xaw/Xawlnit.h> 

^include < XIl/Xaw/SimpieMenP.h> 

fiiKlude < X 1 1/Xaw/CommandP.h > 

static void prPopupMemiO; 

static void NotifylmageO; 

static void PrLcave(); 



void InitActions(app_con) 
XtAppContext app_con; 



{ 

static XtActionsRec actionsf] = ( 
{ "prPopupMcnu u t prPopupMcnu } f 
{ "notify Image ".Notify Image} . 
{*prLeave\PrLeave}, 



XtAppAddActionsiapp_con,actions.XtNumber(actions)); 
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stauc void prPopupMcnu(w.cvcru.paranxs.num - params) 

Widget w: 
XEvcm * event; 
String * params; 
Cardinal * numjarams; 

{ 

Widget menu, temp; 
Arg arglist(2]; 
Cardinal num_args; 

int menujc, menu_y, raemi_width, menu_height, bunon_width, button height; 
Position bunon_x, buoon^y; 



if (•nuxn_parains! » 1) { 

char error_bufIBUFSIZ]; 

$printf(error_buf f •prPopupMenu: Ss.'/IIlegai number of translation 
arguments*); 

XtAppWarning(XtWidgetToApplicationContext(w) t enorjmf); 
return: 

} 

temp = w; 

while(temp != NULL) { 
menu = XtNamcToWidgct(temp, params(0]); 
if (menu = = NULL) 

temp = XtParem(terap); 
else 
break; 

} 
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if (menu = = NULL) { 
char error_bufTBUFSIZl; 
sprintftcrrorjnif, "prPopupMcnu: %s %s.\ 

"Could not find menu widget named". params(0]); 
XLAppWanung(XtWidgetToApplicationConiexi(w), error_buf); 

renirn; 

> 

if (!XtIsReaJizcd(mcnu)) 
XtRealizcWidget(mcnu); 

menu widih - menu- > core. width + 2 * menu- > core. border^ width; 
button widih = w-> core. width + 2 • w- > core.bonier_width; 
button Jieight = w->core.height + 2 • w->cort.bordcr_width; 

menu_heigbt = menu- > core. height + 2 • menu- > core. border_width: 

XtTranslaieCoords(w f 0, 0, &button_x f icbuttonj'); 

menu_x = butxonjc; 

mcnu^y = buoonj + buoon_heighi; 

if (menu_x < 0) 

mcnu_x = 0; 
else { 

ini scrjvidih = WidthOfScreen(XtScreen(mcnu)); 
if (menujc + mrau_width > scr_width) 
menujc = scr_ width - mcnu_width: 

} 

if fmenu_y < 0) 

menu_y = 0; 
else { 

im scr height = HeightOfScreentXtScreen(menu)); 
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if (menu j + rnenu_beigin > scr_heigiu) 
menu = scr_height - menu_beigiit; 

} 

numargs = O; 

* XtSeiAr|(ar?Jisi[num_args] f XtNx, menu_x); num_args+ + ; 
XtSetArg(arglist[num_args], XiNy, menu _y); num_args + + ; 
XiSeiValues(menu. aiglist. num_args); 

XtPopupSpringLoaded(menu); 

} 

/• 

static void 

prRcalizc(w, mask, anrs) 
Widget w; 
Mask *mask; 

XSetWindowAitributcs *atns; 
{ 

(•superclass- > core_cUss.realiie) (w, mask, ann); 
•/ 

/• We have a window now. Register a grab. •/ 
/• 

XGrabBunon( XtDisplay(w), AnyButton. AnyModifier, XiWindow(w), 
TRUE. BunonPressMask|ButtonReleaseMask. 
GrabModeAsync, GrabModeAsync, None, None ); 

} 

•ir 

« * 

* static void NotiryImage(w,evem.params.nurn_params) 

Widget w: 
XEvent •event: 
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String *params; 

Cardinal *num_params: 

{ 

Command Widget cbw= (Command Widget)w; 

if (cbw- > command. set) XtCa]lCaJlbacklist(w,cbw- > command.calibaclcs. event); 

} 

static void PrLcave(w,event.params.numj)arams) 

Widget w; 
XEvent *event; 
String *params; 
Cardinal *num_params; 

{ 

SixnpleMesu Widget srnw=(SimpIeMenuWidget)w; 
Dprinrf("PrLcave\n"); 

} 



I 
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source/Message. c 



/• 

• Message I/O Utility Routines 
•/ 

^include "../includc/xwave.h" 
^include <varargs.h> 

^define MESSJCONS 3 
void TextSize(msg) 
Message msg; 

{ 

int i»-l. xnaxjen*=0; 
char •text=msg-> info.ptr; 

msg->rows=0; 
msg- > cols =0; 

do { 

if <ten(q->*\n' || textUJss'VO') { 

if (msg- > cols > maxjen) max_len=msg- > cols: 
msg- > cols =0; 
msg->rows++; 
} else msg->cols+ + ; 
} while (text(il! = , \0'); 
if (i > 0) if (text|i-l] = = \n') msg- > rows-; 
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msg- > cois = maxjen; 

} 

Message NewMessage(text.size) 

char "text; 
int sue; 

{ 

Message msg = (Message)MALLOC(sizeof(MessageRec)) ; 

msg- > shell = NULL; 
msg- > widget = NULL; 
msg- > info.firstPos-O; 

if (1 (msg- >own_tcxt= text = = NULL)) msg-> info. ptr= text; 
else { 

msg-> info.ptr=(char *)MALLOC(size+l); 
msg-> info.ptrIO] = , \0 , ; 

} 

msg- > info . format « FMT8BIT; 

msg- > info, length =0; 

msg- > rows =0; 

msg->cols«0; 

msg- > size = size; 

msg- > edit" XawtextEdit; 

irtum(msg); 

} 

void CloscMessage(w,closure.calIjJata) 

Widget w; 

caddrj closure, calljlata; 
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Message 



msg = (Mcssagc)closure: 



De$uoy(w,(caddr_t)msg- > shcII.NULL); 
if (msg- > owntext) XtFree(msg-> info.ptr); 
XtFree(msg); 



void Message Window(parcnt.msg,iitle.close.call) 



Widget 
Message 



parent: 



msg; 



char -title; 



Boolean 



close: 



XtCallbackJRec callO; 

{ 

Widget form. widgets[MESSJCONS]»{NULL,NULL,NULL}; 

Formitem items 0 a { 

{ "msg_cancel • , "cancel" ,0,0,FW_icon.NULL} , 

{ " msg Jabel " . title, 1 ,0,FW Jabel.NULLJ , 

{ "msgjnsg " ,NULL.0.2.FW_text.(String)msg} , 



msg- > edit= XawiextRead; 
msg->shell = ShellWidget("msg",parem.parem==global->ioplevel?SWjop:SW_below, 



NULL.NULL); 

form = Format Widget("msgjbnn B . msg- > shell); 

FillFonn<form.MESSJCONS-(close?0: l),&items[close?0: 1 J,&widgetslclose?0: 1 ],call): 
XtPopupimsg- > shell.XtGrabNone); 



}: 



SUBSTITUTE SHEET (RULE 261 
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Mflush(msg); 

} 

void Mflush(msg) 



Message msg; 



{ 

if (global- > batch" » NULL && msg- > widget! - NULL) { 
Display *dpy = XtDisplay(global- > toplevel); 
im i. lines =0: 
Arg args(l]; 

forfi=msg-> info.lcngih-1 :Iines< msg- > rows &A i> =0;i-) 

if (msg- > info.ptr[i] = = '\n* &A. i! =msg- > info. length- 1) lines + + ; 

i++; 

if (msg- > info.pnti] = = '\n') i + + ; 
socpy(msg-> info.ptr,&msg-> info.ptrfi]); 
msg-> info.lcngth--i; 

XiSetArg(args[0],XtNstring f msg- > info.ptr); 
XSyncnronizeCdpy.Tme): 
XtSetValues(msg- > widget.axgs.ONE); 
XSynchronize(dpy .False); 

} 

} 



void mprintf(msg,ap) 

Message msg; 
vajist ap; 



{ 
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char 'format; 

format =va_ajg(ap, char *); 

if (global- > batch! = NULL) vprintffformat.ap); 

else { 

char textfSTRLEN]; 
int i; 

vsprintf(text,format,ap); 
i=strlcn(icxi)+msg- > info.lengtfa-msg- > size; 
if (i>0) { 

strcpy(msg-> info.ptr f &msg*> info.ptr(i)); 
msg- > info.lengtb-=t; 

} 

strcat(msg-> info.ptr.text); 
msg-> info.lengtb+ -strlcn(text); 

} 

} 

void Dprinrf(va_alist) 
vajlcl 

{ 

vajist ap; 

if (global- > debug) { 
char * format: 

va_stan(ap); 

format = va_arg(ap,char *): 
vprintf(format.ap); 
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va_end(ap); 

} 

} 

void Mprimftva_alist) 
va del 



{ 



vajisi ap; 
Message msg; 



va^stan(ap); 

msg = va_arg(ap f Message); 

mphntf(msg t ap); 

va_end(ap); 

} 

void Eprinrf(va_alist) 
va del 



{ 



vajist ap; 
Message msg; 
ini rows, cols; 

vajian(ap); 

msg ■ NewMessage(NULL.STRLEN): 

mprinitYmsg.ap); 

if (global- > batch = = NULL) { 

XtCallbacfcRec callbacks!] = { 
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{ CloscMessage , (caddr_()rnsg } , 
{NULL.NULL}, 

}; 

TcxiSi2c(msg); 

McssagcWindow(global- > topievel.msg, "Xwave Error", True .callbacks); 



} 

va_end(ap); 



} 
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* Supply MenuBunon widget id to PullRigbtMenu bunon resource 



^'include " . ,/include/xwave.h" 

void NameButton(w, cveni. params, numjarams) 

Widget w; 
XEvent •event: 
String •params; 
Cardinal *num_params; 



MenufiutionWidget rabw»(McnuButton Widget) w; 
Widget menu: 
Arg args(l]; 
String name; 

X tSe tArg (args{0] t XtNmenuName . Aname) ; 
XtGetValues<w,args f ONE); 

Dprintff"NameButtoh: looking for PRM %s\n B .name); 
menu = FindWidget(name,w); 
if (menu ! = NULL) { 

DprintffNameButton: setting Menu Button\n"); 

XtSe tArg(args(0],XtNbutton.w); 

XtSetValues(menu.args,ONE); 

} 

} 
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source/Palette.c 



/• 

* PaJcttc rc -mapping 
•/ 

^include " . ./include/xwave.h" 

/*' Function Name: RcMap 

• Description: Re-maps a pixel value to a new value via a mapping 

* Arguments: pixel - pixel value (0..max-l) 

• max - range of pixel values 

• map - palette to recode with 

* Returns: remapped pixel value 
•/ 

int ReMap(pixel.max,paleae) 

int pixel, max; 
Palette palette; 

{ 

Map map = palette- > mappings; 
int value -pixel; 
Boolean inrange= False; 

while(map! = NULL && linrange) { 

if (pixel > = map- > stan && pixel < =map- > finish) { 
inrange=True; 

value = map- > m*pixel + map- > c ; 
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} 

map = map- > next; 

} 

rcrurai vaJuc < 0?0: value > = max?max-l : value); 



} 



/ 



Function Name: FindPaieae 

Description; Find a palette from a list given the index 

Arguments: palette - the palette list 

index - the index number 
Returns: the paletxe corresponding to the index 



Palette FindPaletxe(paJe tte . index) 

Palette palette; 
int index; 



whileOndex > 0 palette- > next! = NULL) { 
index-; 

palette = palette- > next; 

} 

rccurn(paJcoe); 



Function Name: ReOrderPalcttes 

Description: Reverse the order of the palene list 

Arguments: start, finish - the start and finish of the re-ordered list 

Returns: the palette list in the reverse order 
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PaJene ReOrderPakoestsian. finish) 

Palctic -stan. finish; 

{ 

Palette list = finish- > next; 

if (list! = NULL) { 

finish- > next = list- > next; 
list- > next = stan; 
stan»ReOrderPalettes(list,finish); 

} 

renirn(stan); 
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source/Parse. c 



/* 

• Parser for xwave input files: .elo 
•/ 

^include "../includeVxwave.h" 
^include "../include/Gram.h" 

void Parseipath.file.ext) 
String path. file, exx; 

{ 

char fiIe_name[STRLEN); 

sprinrf(file_name, " %s%s/%$%s\0\global-> home.path.file.ext); 

Dprintf("Parse: parsing file S&s\n\file_name); 

if (NULL= -(global- > parse_rp«fopen(filejiame,V))) 

EprimfCParse: failed to open input file %s\n",filejiame); 

else { 

sprintf(file_name, " %s %s\Q" .file.ext); 
global- > parsefile = file_name: 
global- > parsejoken =exf ; 
yyparse(); 

fclose(global- > parsefp); 

DprintfCParse: finished with %s\n\file_name): 

} 

} 
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void PaneCtrl(w.closure,caJl_data) 

Widect w; 

caddrj closure. call_data: 

{ 

Par5c(".",((XawListRcturaStiuct *)caJ]_dau)-> string.(String)closurc); 

} 

int Parseinpui(fp) 

FILE *fp: 

( 

int nam; 

if (global- > parsejoken! = NULL) 

if (global- > pane joken(0) «= = ^0') { 
num=(ini) , \n'; 

global- > parse_token » NULL; 

}clse{ 

niun = (im)global- > pane joken{0] ; 
global- > parse_token+ + ; 

} 

else if (EOF --(num=getc(global-> parse Jp))) num=NULL; 
rcrurn(nuni); 



WO 94/23385 

- 270 - 

source/Pop2.c 
/• 

Global callbacks for popping popups and allsoned utilities 

•/ 

^include "../inciudc/xwave.h" 

void Destroy(w,closurc.ca]l_data) 

Widget w; 

caddr_t closure. cail_data; 

{ 

Widget widget =(W1dget)closure; 

if (widget! = NULL) XtDestroy Wldget(widget); 

} 

void Quit(w,closure,call_data) 

Widget w; 

caddrj closure, call_data: 

{ 

XiDestfoyApplicaiionContextfglobal- > app_con); 
exitQ; 

} 

void Frcciw.closure.call_data) 
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» 



t 
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Wideet 



caddr i 



closure, call data; 



if (closure! = NULL) XtFrce(closure); 



Widget 



FindWidget(name,cunrm) 



String name; 
Widget 



current; 



Widget target- NULL; 

whiWcurrent! = NULL) { 

target = XtNameToWidget(current,naine); 

if (target = = NULL) cunrnt = XtParent(current) ; 

else break: 

} 

if (target == NULL) { 

EprimfCCam find widget: %s\n\name); 
target - global- > toplevel; 



return(target); 



^define 



NA ICONS 2 



void NA(w,ciosure.call data) 



Widget 



w; 
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caddrj closure, call data: 

{ 

Widget 

shell = SheI]Widget("na_sheir.(Widgei)closure.SW_below,NULL.NULL). 

form = Format WidgeU"na_form\ shell). widgcu(NA ICONS]; 
Formltem itemsf]={ 

{"reconfirm", "confirm" .O.O.FWJcon.NULL} , 
{"naJabelVThis function is not available".0.1,FW label.NULL} 

>: 

XtCallbackRec caUbacks[] = { 

{Destroy,(caddr_t)shell}, {NULL.NULL}. 

); 

FillForxn(form.NAJCONS,iteais,widgets,calIbacks); 
XtPopup<shell.XtCrabExclusive); 

} 

void SetSensitive(w.closure.call_data) 

Widget w; 

caddr_t closure, call_data: 

{ 

XtSetSensitive((Widget)closure.True); 

} 
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source/Process. c 



/• 

Call sub-processes 

•/ 

^include Winclude/xwave.lT 

^include <signai.h> 

#include < sys/wait.h > 

^include <sys/time.h> 

^include < sys/resource.h> 

/• Function Name: Fork 

* Description: Executes a file in a process and waits for termination 

* Arguments: argv * standard argv argument description 

* Returns: dead process id 
•/ 

int Fork(argv) 

char •argvQ; 

{ 

int pid: 

union wait statusp; 

struct rusage rusage; 



if(0= = <pid = fork<))) { 

exec vp(argv[0] 9 argv); 
exitO; 
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} else if (pid>0) wau4(pid,&stanisp,0,<S:riLsage); 
returni pid); 

} 

/• Function Name: zropen 

* Description: Open a file (or .Z file) for reading 
Arguments: filc_name - name of the file to be read 

* pid - pointer to process id 

* Returns: file pointer 
•/ 

FILE *zropeni file_name.pid) 

char •file_name: 
im *pid; 

{ 

char zjaxnefSTRLEN]; 

String zcatfl={"zcai\2jiame.NULL}; 

FILE *fp: 

if (NULL= =(fp=fopen(filc_name."r"))) { 
static int up[2]; 

sprintflzjiame. " %s. Z" , file_name) ; 
pipefiip); 

if(0!=Cpid = fork())) { 

DprintfCParent process staned\n"); 

close(up(l]); 

fp = fdop«uup(0].V); 

} dsc { 

Dprintff "Running zcat on %s\n".zcat|l]); 
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cioseiupfO]); 
dup2( up[l], 1 ); 
close( up(l] ); 
execvp(zcat[0] t zcat); 



/• Function Name: zseek 

* Description: Fast-forward thru file (fseek will not work on pipes) 

* Arguments: fp • file poinier 

* bytes - bytes to skip 
•/ 

void zseek(fp .bytes) 

FILE *fp; 

int bytes; 



{ 

char scratchflOOO]; 
int i; 

while(bytes>0) { 

int amount = bytes > 1000? 1000: bytes; 

f read(scratch. sizeof (char) , amount, fp) ; 
bytes-* amount; 



} 

} 
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void zclose(fp.pid) 

FILE *fp: 
int pid: 

{ 

union wait statusp; 
struct nisage nisage; 

fclosc(fp); 

if (pid!=0) wait4<pid,&siatu$p.0 f &nisage); 

} 
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#if ( Jdefinednint) && !defined(SABER) ) 

static char Xrcsidf] = "SXConsonium: PuIlRightMenu.c.v 1.32 89/12/11 15:01:50 kit 

Exp$"; 

#endif 

/• 

* Copyright 1989 Massachusetts Institute of Technology 

* Permission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 

* the above copyright notice appear in all copies and that both that 

* copyright notice and this permission notice appear in supporting 

* documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* written prior permission. M.I.T. makes no repr e s entations about the 

* suitability of this software for any purpose. It is provided "as is" 

* without express or implied warranty. 

* M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE. 
INCLUDING ALL 

* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO 
EVENT SHALL M.I.T. 

* BE LIABLE FOR ANY SPECIAL. INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

* WHATSOEVER RESULTING FROM LOSS OF USE. DATA OR PROFITS. 
WHETHER IN AN ACTION 

* OF CONTRACT. NEGLIGENCE OR OTHER TORTIOUS ACTION. ARISING OUT 
OF OR IN 
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• CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
•/ 

I* 

" PullRighiMenu.c - Source code file for PullRightMenu widget. 
*/ 

^include <stdio.h> 
^include <Xll/lntrinsicP.h> 
^include <Xll/StringDefs.h> 

#include < XI 1/Xaw/XawInit.h > 
^include <Xll/Xaw/SimpleMenP.h> 
^include "PullRightMenuP.h" 
#include <Xll/Xaw/SmeBSB.h> 
^include "SroeBSBpr.h" 
^include <X11/Xaw/Cardinals.h> 

^include <X11/Xmu/Initer.h> 
^include <Xll/Xmu/ChajSet.h> 

#define sireq(a, b) ( strcmp((a), (b)) = = 0 ) 

#define offset(field) XtOffset(PullRightMenuWidget, simple_menu.field) 

static XtResource resourcesQ = { 

/• 

* Label Resources. 
•/ 



SUBSTITUTE SHEET (RUlf 26) 
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{XiNlabel. XiCLsbel. XiRString, stzeof(String), 

offset(labeijtriDg), XtRString, NULL}, 
{XtNlabelClass. XtCLabelClass. XiRPoinier. siicotTWidgetClass), 

offsctdabeljlais). XtRImmediate. (caddrj) NULL}, 

/• 

* Layout Resources. 
•/ 

{XlNrowHciglu, XtCRowHeight, XlRDimension, sizeof(Dimension), 

offset(row hcighi), XtRImmediate, (caddrj) 0}, 
{XtNtopMaxgia. XtCVcnicalMargins. XlRDimension. sizeof(Dimension), 

offsetftopjnargin), XtRImmediate. (caddrj) 0). 
{XtNbotiomMargin. XtCVerricalMaxgins, XlRDimension. sizeo ((Dimension), 

offset(bonorojnargin). XtRImmediate, (caddrj) 0}, 

/• 

* Misc. Resources 
•/ 

{ XtNallowShellResize. XtCAllowShellResize. XtRBoolean. sizeof(Booieaa), 

XtOffseKSimpleMenuWidget, shell.allow_shelIjesi«), 

XtRImmediate, (XtPointer) TRUE }, 
{XtNcursor. XtCCursor, XtRCursor, sizeoftCursor), 

offset(cursor), XtRImmediate. (caddrj) None}, 
{XtNmenuOnScreen. XtCMenuOnScreen, XtRBoolean. sizeof(Boolean), 

offset(menu_on_screen), XtRImmediate, (caddrj) TRUE}, 
{XtNpopupOnEntry. XtCPopupOnEntry, XtRWidgei. sizeof(Widget), 

offsct(popupjntry). XtRWidget. NULL}, 
{XtNbackingSiore, XtCBackingStore. XtRBackingStore. sizeof (int), 

offset(backingjtore). 

XiRImmediate. i caddrj) (Always + WhenMapped + NotUseful)}, 
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{XtNbunon. XtCWidgct. XtRWidget, sueoffWidgct), 
offsert button), XiRWidgcu (XtPoimer)NULL}, 

}; 

tfundef offset 

static char defaultTranslationsfl = 

" < Enter Window > : highJight() \n\ 

< Leave Window > : pullO \n\ 

< BtnMotion > : highligfaK) \n\ 
<BtnUp>: cxecuieO"; 

/• 

* Semi Public function definitions. 
•/ 

static void Redisplay^ RealizcO, ResizeQ. ChangeManagedO; 
static void Initialize() f ClassInitializeO. ClassPanlnitializrQ; 
static Boolean SeiVaJuesO, SetValuesHookQ; 
static XiGeometryResult Geometry ManagerO; 

/* 

* Action Routine Definitions 
*/ 

static void HighlighK), UnhighJightO, PullO. ExecuteO. NotifyO, PositionMenuActionO; 
/• 

* Private Function Definitions. 
•/ 

static void MakeSetValuesRequesK), CreateLabelO, LayoutO; 

static void AddPositionActionO. PositionMenuO, ChangeCursorOnGrabQ; 
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static Dimension GeiMenuWidthO. GetMcnuHcighiO; 

static Widget FLodMenuO; 

static SmeObject GetEvcntEnayO; 



static XtActicnsRec actionsList(] = 



{ 



{"pull". 

{"execute", 

{"notify", 

{"highlight". 

{"unhighlight". 



Pull}, 
Execute}, 
Notify}, 

Highlight}, 

Unhighlight}. 



CompositrClassExtcnsionRcc pr_extension_rec = { 
/• next_extension */ NULL, 
/• record jype •/ NULLQUARK, 
/* version */ XtCompoaiieExtensionVersion, 
/• reconj_size */ si2cof(CompositcClassExiensionRcc) t 
/• accepB_objects •/ TRUE, 



.fdefine superclass (AoverrideShellClassRec) 
PullRjghtMenuClassRec pullRightMenuClassRec = { 

{ 

/* superclass */ (WidgetClass) superclass. 

/• class jiarae */ "PullRighiMenu", 

/* size */ si2eof(PullRightMenuRec), 

/* class ^initialize */ Classlnitialize, 

/* class j3an_initialize*/ ClassPanlnitialize. 

/• Class init'ed V FALSE. 

/* initialize V Initialize. 
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/• initialize book "/ NULL. 

/• realize *' Realize. 

/• actions -/ actionsList, 

/• mini actions •/ XtNumber(actionsList). 

/• resources *l resources. 

/• resource count •/ XtNurabertresources), 

/• xnn_class •/ NULLQUARK. 

/• compress_motion */ TRUE. 

/• comprcss_cxposurt •/ TRUE, 

/• comprcss_cnicT leave*/ TRUE, 

/• visible_inieTest */ FALSE, 

/• destroy •/ NULL. 

/• resize •/ Resize. 

/• expose Redisplay, 

/• set values •/ SetValues, 

/• set vaJues_hook */ SetValuesHook, 

/* set values almost */ XtlnbehtSetValuesAlmost, 

/• get_values_book */ NULL. 

/• accept_focus •/ NULL, 

/• irunnsics version •/ Xt Version. 

/• callback offsets •/ NULL. 

/• tm table */ defaultTranslations, 

/• query _geomeuy */ NULL, 

/• display_accelerator*/ NULL. 

/• extension •/ NULL 

}.{ 

/* geometry_manager */ GeometryManager, 

/• changejnanaged •/ ChangeManaged. 
/* insen child •/ XtlnheritlnsenChild. 
/• delete child */ XtlnheritDeleteChild. 

/• extension */ NULL 
}.{ 
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/• ShcU extension •/ NULL 

}.{ 

/• Override extension •/ NULL 
>.{ 

/• Simple Menu extension"/ NULL 

} 

}; 

WidgetClass pullRightMenuWidgetCIass = (WidgeiClass)&pulIRightMenuClassRec; 

* Semi-Public Functions. 

m 

................................ f 

I* Function Name: Classlnitialize 

* Description: Class Initialize routine, called only once. 

• Arguments: none. 

• Returns: none. 

V 

static void 
ClassinitializeO 

{ 

XawinitiaJueWidgetSetO; 

XtAddConvener( XlRString, XtRBackingStore. XrauCvtStringToBackingStore, 
NULL. 0 ); 

XmuAddInitializer( AddPositionAction. NULL); 

} 



/ 



Function Name: Classinitialize 
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Description: Class Pan Initialize routine, called for every 
subclass. Makes sure that the subclasses pick up 
the extension record. 

• Arguments: wc - the widget class of the subclass. 
Returns: none. 

*/ 

static void 

ClassPanlnitialize(wc) 
WidgetClass wc; 

{ 

SimpleMenuWidgetClass smwc = (SimpleMenu WidgetClass) wc; 

/• 

* Make sure that our subclass gets the extension rec too. 
•/ 

pr extension_rec.nexi_cxtension = smwc- > composite j:Iass. extension; 
srawc->coraposite_ciass.extension = (caddrj) &pr_extension_rtc; 

} 

Function Name: Initialize 
Description: Initializes the simple menu widget 
Arguments: request - the widget requested by the argument list, 
new - the new widget with both resource and non 
resource values. 

Returns: none. 

/♦ ARGSUSED V 
static void 

Initialize! request, new) 
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Widgci request, new; 

{ 

SimpleMenuWidget smw =» (SimplcMcnuWidgct) new; 

XmuCaIUnitiaJi2£rs(XtWidgetToApplicationConicxi(new)); 

if (smw->simple_menu.label_class == NULL) 

sraw- > simple_menu.label_class = sraeBSBObjcctClass; 

smw- > s imp le_mcmi. label = NULL; 

smw- > simple_mrau.enrry_set = MULL; 

smw- > simple jneim.recunive_set_vaiue3 » FALSE; 

if (smw- > simple jnemi.label_string ! = NULL) 
CreaieLabel(new); 

sraw->$iraple_menu.menu_width = TRUE; 

if (smw- > core, width =» 0) { 

smw- > simple_menu.menu_width = FALSE; 
smw- > core. width « GetMenuWidtWnew, NULL); 

} 

smw- > siraplejnenu.mcnu_height = TRUE; 

if (smw->core.height 0) { 

smw- > simple jneiui.menujieight = FALSE; 
smw- > core. height = GetMenuHeight(new); 

} 

/• 

* Add a popup_cailback routine for changing the cursor. 



WO 94/13385 PCT/GB94/0WTJ 

- 286 - 



XiAddCaJlback(new. XLNpopupCallback. ChaDgeCursorOnGrab, NULL); 

} 



Function Name: Redisplay 

Description: Redisplays the corneals of the widget. 

Arguments: w • the simple menu widget. 

event - the X event that caused this redisplay. 

region - the region the needs to be rcp&inzed. 
Returns: none. 



/• ARGSUSED •/ 
static void 

Redisplay(w f event, region) 
Widget w: 
XEvcnt * event; 
Region region: 

{ 

SimplcMenuWidget smw = (SimpleMenuWidget) w; 
SmeObject • entry: 
SmeObjectClass class: 

if (region = = NULL) 

XClcar Window(XtDisplay ( w), XtWindow< w)) ; 

/• 

* deck and Paint each of the entries - including the label. 
•/ 



ForAIIChildrenrsmw. entry) { 
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if (IXtkManaged ( (Widget) "entry)) continue: 

if (region ! = NULL) 

switcb(XRectInRcgion(region. (int) ('entry)- > rectangle. x. 

(im) ("entry)- > rectangle.y, 
(unsigned int) (*entry)-> rectangle. width, 
(unsigned int) (•entry)- > rectangle. height)) { 

case Rectanglein: 
case RecunglePart: 

break; 
default: 

continue: 

} 

class " (SmeObjectClass) ('entry)- > object. widgct_c lass; 

if (class- > rect_c lass. expose != NULL) 

(class- > rect_class.expose)( (Widget) •entry, NULL, NULL); 

} 

} 

/• Function Name: Realize 

• Description: Realizes the widget 

• Arguments: w - the simple menu widgeL 

* mask - value mask for the window to create. 

* attrs * attributes for the window to create. 

♦ Renins: none 
•/ 

static void 

Realize(w, mask, attrs) 
Widget w: 

XtValueMask • mask: 
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XSetWindowAnributes • ann: 

{ 

SirapleMenuWidget sraw = (SimplcMenuWidgct) w; 

artrs- > cursor = sraw- >simplejnenu. cursor; 
•mask | = CWCursor; 

if ((sraw- > simple_menu.backing_siore = = Always) 1 1 
(smw->siinplejnemi.backing_siorc = = NotUseful) | J 
(sew- > simple_mexw.backing_stOTr == WhenMappcd) ) { 
•mask | = CWBackingStorc; 

anrs- > backing_storc = sraw- > simple_menu.backing_store: 

) 

else 

•mask & => -CWBacldngStore; 
(•superclass- > corc_clasj. realize) (w, mask, am); 

} 

/* Function Name: Resize 

* Description: Handle the menu being resized bigger. 

♦ Arguments: w - the simple menu widget. 

• Returns: none, 
•/ 



static void 
Resize(w) 
Widget w; 

{ 

SimpieMcnu Widget smw = (SimpleMenuWidget) w; 
SmeObject • entry; 



if ( !XdsRealized(w) ) return: 
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ForAUChildrcn(smw. eniry) /• reset width of all entries. •/ 
if (XdsManaged( (Widget) •entry)) 

('entry)- > rectangle, width = sraw-> core, width; 

Redisplay^. (XEvent •) NULL, (Region) NULL); 

} 

/• Function Name: SetValues 

• Description: Relayout the menu when one of the resources is changed. 

• Arguments: curreni - current state of the widget. 

• request - what was requ e s t ed. 

• new - what the widget will bec o m e . 

• Returns: none 
•/ 

/• ARGSUSED •/ 
static Boolean 

SetValuesfcuncnt, request, new) 
Widget current, request, new; 

{ 

SimpleMenu Widget smw_old = (SimpleMenuWidget) current: 
SimpicMcnu Widget smw_new « (SimpleMenuWidget) new; 
Boolean ret_val - FALSE, layout - FALSE: 

if (!XtIsRealized(cunent)) return(FALSE); 

if (!smw_new- > simple_menu.recursive_set_values) { 

if (smw new- > core. width != smw_old-> core, width) { 

smw ncw->simple_mcnu.menu_width = (smw_new-> core, width != 0); 
layout = TRUE; 

} 

if (smw new->core.height ! = smw_old-> core, height) { 
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smw new-> simplejnenu.menuheight = (smw_ncw-> core. height != 0); 
layout = TRUE; 

} 

} 

if (smw old-> simple jnmu.cunor != sraw_new->simplc_menu. cursor) 
XDefineCursortXtDispiay(new), 

XtWindow(new), srawjiew- > simple_menu. cursor); 

if (smw old- > simple jnenu.label_string ! = smw_new- > s imp le_mcnu . Iabel_s tring) 
if (sraw_new- > simple jncnu.iabel_string - - NULL) /♦ Destroy. */ 

XtDestroy Widget(sinw_old- > simplejncnu.label); 
else if (smwj)ld-> simple jneim.bbel_string = «= NULL) /• Create. */ 

Create Label(new); 
else { /* Change. */ 

Arg argsll]; 

XlSetArg(args(0] f XtNlabel, 6mw_new- > simple jneim.label_string); 
XLSetVahics(smw_new- > simp lejnenu. label, args, ONE); 

} 

if (smw old- > simple jncnu.labclj: lass != sraw_new-> simple_menu.label_class) 
XtAppWaniing(XtWidgetToAppIicaiionConiexi(new) f 

"No Dynamic class change of the SimpleMenu Label."); 

if ((smw old- > simple jnenu. top jnargin != smw jiewO simple jnenu.topjnargin) 

(smw old- > simple jnenu.bottoxn_margin ! = 

smw newO simple jnerm.bottomjnargin) /* filler */ ) { 

layout = TRUE; 
retjvai = TRUE: 

) 
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if (layout) 

Layout! new, NULL, NULL); 

reruntfrctjvaJ); 

} 

/* Function Name: SetValuesHook 

Description: To handle a special case, this is passed the 

* gctnai arguments. 

* Arguments: w - the menu widget 

* argiist • the argument list passed to XtSetValues, 

* num axgs - the number of args. 

* Returns: none 
•/ 

/• 

* If the user actually passed a width and height to the widget 

* then this MUST be used, rather than our newly calnilatrd width and 

* height. 
•/ 

static Boolean 

SctValucsHooWw, argiist, num_args) 
Widget w; 
ArgList argiist; 
Cardinal *num_args; 

{ 

register Cardinal i: 
Dimension width, height; 

width = w-> core, width: 
height = w-> core, height: 
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for ( i - 0 ; i < •num_args ; i + +) { 
if ( stre<j(arglist(i].name. XtNwidth) ) 

width = (Dimension) arglistfi]. value; 
if ( stFeq(axgiutfi].name. XtNheight) ) 

height = (Dimension) arglist(i]. value; 

} 

if ((width !» w-> core. width) 1 1 (height != w->core.hcight)) 

MakeSetVaJuesRequest(w, width, height); 
retura(FALSE); 

} 
* 

* Gcomeoy Management routines. 

...................... 

/• Function Name: Geometry Manager 

* Description: This is the SimpleMenu Widget's Geometry Manager. 

* Arguments: w * the Menu Entry making the request. 

* request - requested new geometry. 

* reply - the allowed geometry* 

* Returns: XtGeometry{Yes, No, Almost}. 
•/ 

static XtGeoraetryResult 
GeometryManager(w, request, reply) 

Widget w; 

XtWidgetGeometry * request. * reply; 
{ 
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SimpleMcnuWidget smw = (SimpleMenuWidget) XtParentfw); 
SmeObjea cmry = (SmeObject) w; 
XiGeometryMask mode = request- > request_mode: 
XtGeometryResuit answer; 
Dimension oldjieight, old_width; 

if ( !(raode & CWWidtb) &A !(mode & CWHeight) ) 
remni(XtGeometryNo); 

reply- > width = request- > width: 
reply- > height = request- > height; 

old_width = cniry- > rectangle, width; 
oldjicight - entry- > rectangle. height; 

Layout(w f & (reply- > width), &(reply- > height) ); 

/• 

• Since we are an override shell and have no parent there is no one to 

• ask to see if this geom change is okay, so I am just going to 

• we can do whatever we want. If you subclass be very careful with this 

• assumption, it could bite you. 

• Chris D. Peterson - Sept. 1989. 
•/ 

if ( (reply- > width = = request- > width) && 
(reply- > height = = request- > height) ) { 

if ( mode & XtCWQueryOnly ) { /♦ Actually perform the layout. •/ 
entry- > rectangle, width = old_width: 
entry- > rectangle. height = oldjieight; 



WO 94/23385 



- 294 - 



PCT/GB94/006T7 



} 

else { 

Layout(( Widget) smw, NULL. NULL); 

} 

answer = XiGeometryDone: 

} 

else { 

enny-> rectangle, width = old_width; 
enrry- > rectangle, height = old_height; 



if ( ((reply- > w ^ = = request- > width) 8i& !(mode & CWHcight)) 1 1 
((reply- > height - - request- > height) &&. !(mode & CWWidth)) 1 j 
((reply- > width = = request- > width) &A 
(reply- > height = = request- > height)) ) 
answer = XtGeometryNo; 

else { 

answer — XtGeomctry Almost; 

reply- > request jnode " 0; 

if (reply- > width ! = request- > width) 

reply- > requestjnode | = CWWidth: 
if (reply- > height ! = request- > height) 

reply- > rrquestjnode | = CWHcight; 

} 

} 

return(answer); 

> 



Function Name: ChangeManaged 

Description: called whenever a new child is managed. 

Arguments: w - the simple menu widget. 

Returns: none. 



/ 
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static void 
ChangeManaged(w) 
Widget w; 
{ 

Uyoutfw, NULL, NULL); 

} 



• Global Action Routines. 
# 

• These actions routines will be a d d e d to the application's 

• global action list. 

9 

...•..^....•.•••.••••••••••••^^ 

/• Function Name: PositionMenuAction 

• Description: Positions the simple menu widget. 

• Arguments: w - a widget (no the simple menu widget.) 

• event - the event that caused this action. 

• params. num_params - parameters passed to the routine. 

• we expect the name of the menu here. 

• Returns: none 
*/ 



/• ARGSUSED •/ 
static void 

PositionMcnuAction(w, event, params. numjjarams) 

Widget w: 
XEvent • event; 
String * params; 
Cardinal * num_params: 
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{ 

Widget menu; 
XPoini loc; 



if (•num_params !- 1) { 
char error_bufIBUFSIZ]; 
sprintf(erTorJ>uf. m %% %s\ 

"Xaw - SimpieMenu Widget: position menu action expects only one", 

'parameter which is the name of the menu/); 
XtAppWaniing(XtWidgetToApplicaiionConiexi(w) t error_buf); 
return; 

} 

if ( (menu = FindMenu(w, params{0])) =» - NULL) { 
char error^buflBUFSIZl; 
sprintf(errorj>uf f *%s 

*Xaw - SimpieMenu Widget: could not find menu named: \ params(0]); 
XtAppWarning(XtWidgetToApplicaiionConxext(w) t eiror_buf); 
retsnu 

} 

switch (event- > type) { 
case BuoonPress: 
case BuoonRelease: 

loc.x = event- > xbunon.x_root; 

loc.y = event- > xbunon.y_root; 

PositionMenu(menu, &Joc); 

break; 
case EnterNotify: 
case LeaveNotify: 

loc.x = event- > xcrossing.x_root: 

loc.y as event- > xcrossing.y_root: 
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PosinonMcnu(mcnu, &loc); 

break; 
case MotionNotify: 
loc.x = event- >xmorion.x - root: 
loc.y = event- >xmooon.y_root; 
PositionMexxu(menu f &loc); 

break; 
default: 

PosirionMenu(menu, NULL); 
break: 

} 

> 





• Widget Action Routines. 



/• Function Name: Unhighlight 

* Description: Unhighlights current entry. 

* Arguments: w - the simple menu widget 

* event • the event that caused this action. 
» params, nmn_params - NOT USED 

* Returns: none 
•/ 

/• ARGSUSED •/ 
static void 

Unhighlight(w, event, params, numjarams) 

Widget w: 
XEvem • event: 
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String * params; 
Cardinal * num^params; 

{ 

SimplcMenuWidget smw = (SimplcMenuWidget) w; 
SmrObject entry = smw->simpie_menu.enny_set; 
SmeObjectClass class; 

if ( carry = = NULL) return; 

smw- > simple jnenu.entry_set = NULL; . 

class = (SmcObjcctClass) entry- > object. widgct_c lass; 

(class- > sme_cias5.unhighlight) ( (Widget) entry); 

> 

/• Function Name: Highlight 

* Description: Highlights current entry. 

* Arguments: w • the simple menu widget. 

* event - the event that caused this action. 

* paruns. numjarams - NOT USED 

* Returns: none 
•/ 

/• ARGSUSED ♦/ 
static void 

Highlight(w, event, params, numjarams) 
Widget w; 
XEvent * event; 
String * params; 
Cardinal * numj>arams; 

{ 

SimplcMenuWidget smw = (SimplcMenuWidget) w; 
SmeObjcct entry: 
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SmeObiecrClass class; 

if ( !XtIsSensitive(w) ) return; 

entry = GctEvcni£nny(w t event); 

if (entry = =* smw- > simple_menu.enrry_$et) return; 

Unhighlighflw, event, params, num^params); 

if (ernry = = NULL) return; 

if ( !XtIsScnsitive< (Widget) entxy)) { 

smw->simple_menu.eniry_set = NULL; 

} 

smw- > simple_inenu.eniry_set » enny; 

class = (SmeObjectCIass) entry* >objea.widget M class; 

(class- > smej: lass. highlight) ( (Widget) entry); 

} 

/* Function Name: Notify 

* Description: Notify user of current entry. 

* Arguments: w - the simple menu widget 

* event - the event that caused this action. 

* params. numj>arams - NOT USED •* 

* Returns: none 



/• ARGSUSED •/ 
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static void 

Notify(w, event, params, num _params) 
Widgci w; 



XEvcnt • event; 



String * params; 



Cardinal * num_params; 



SimpieMenuWidget smw = (SimpleMenu Widget) w; 
SmeObject entry = smw- > s implejnenu . emry_$et; 
SmeObjectClass class; 

if ( (enny = = NULL) j | !XtIsSensirive((Widget) entry) ) retuni; 

class = (SmeObjcctClass) entry- > object. widget_class; 
(class- > sme_dass.norify)( (Widget) entry ); 



event - the Leave Window event that caused this action. 



/ 



Function Name: Pull 

Description: Determines action on basis of leave direction. 
Arguments: w * the pull right menu widget 




Returns: none 



static void Pull(w f event, params, numj)arams) 



Widget 



w; 



XEvent 



•event: 



String *params; 



Cardinal 



•numjarams; 
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PullRighiMcnu Widget prw=(PullRightMenuWidget)w; 
SmeObject emry=pnv-> simplc_mcnu.enrry_s«; 
SmeObjectClass class; 

if ((entry = = NULL) 1 1 !XtIsScn$iuvc((Widg«)cntry))renini; 

if (event- > type! *= LeaveNoiify &£ event- > type! = EmerNotify) { 

XtAppError<XtWidgttToApplicaiionComext(w) f 
"pullO action should only be used with XCrossing events."); 

return: 

} 

if (None! = event- > xcrossing.subwindow) return; 
if (event- > xcrossing.y < 0 || evea->xcroasing.y>prw-> core. height) { 
UnhighUght(w 9 event,panms,znmi_params); 



); 

if (event- > xcrossing.x < 0) { 

if (XtIsSubcias$(XtParOT(w) f pullRightMem XtPopdown(w); 



>; 

class = (SmeObjectClass)enny- > object. widget_class; 
if (event- > xcrossing.x > prw- > coit. width &Jl 
XLlsSubcias$(cnny f smeBSBprObjectCkss)) (class- > sme_ciass.norify)((Widget)encry); 
else UnhighlightCw^evem^params.numjaiams); 

} 

/• Function Name: Execute 

+ Description: Determines notify action on basis of SmeObject. 

* Arguments: w - the pull right menu widget. 

* event - the norify-typc event that caused this action. 

* params, numjttrams - ** NOT USED ** 
Returns: none 
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•/ 

static void Execuie(w, event, params. nuinj>arams) 

Widgei w; 
XEveni •event: 
String *params: 
Cardinal *num_params; 

{ 

PullRightMenu Widget prw = (PulIRighiMemjWidget)w; 
SmeObjeet entry »prw-> simple jiiesu.emry_set; 
SmeObjectClass class; 
Widget shell; 

Dprinrf('Exfcute\n'); 

forCshell ■= w:XtIsSubclass(shell,pullRightMenu WidgetClass);$neU = XtParenK shell)) 

{ 

XavSinu?leMenuOearActiveEntry(snell); 
XtPopdown(snelI); 

); 

if 

((entry* = G«tEv«ii£iitry(w,eveiii))&it(entry! » ^^LJIX)<SatXtI^cIlsirivc((Wldgel)e^try)) { 

class = (SmeObje«Class)entry- > object. widget_class; 

if (XtIsSubclass(enn7,smeBSB0bjectClass)) 
(class- > sine_class.notiry)((Widget)entry); 

}; 

} 



/ 
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* Public Functions. 

m 

................ ......... ..................... 

/* Function Name: XawPullRighiMenuAddGlobalActions 

* Description: adds the global actions to the simple menu widget. 

* Arguments: app_con - the appcontexi. 

* Returns: none. 
•/ 

void 

XawPuIlRightMenuAddGlobalActions(app_con) 
XtAppContext app_con; 

{ 

XtlDitializeWidgetClass(pulIRightMeouWidsetClass); 
XmuCalIInitializers( app_con ); 

} 

/ ••••••••••• .•......»..»•..•••••••••••••••.•••••.•• 

* Private Functions. 

/* Function Name: CreateLabel 

* Description: Creates a the menu label. 

* Arguments: w - the smw widget, 
i * Returns: none. 

* Creates the label object and makes sure it is the first child in 

* in the list. 



SUBSTITUTE SHEET (RULE 26> 
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•/ 

static void 
CreateLabel(w) 
Widget w; 

{ 

SirapleMenuWidgei smw = (SirapleMenuWidget) w; 
regisier Widget * child, * next_child; 
register int i; 
Arg args{2]; 

if ( (smw- > simple jnenuJabel_string = = NULL) j | 
(smw- > simplejnenu. label !« NULL) ) { 
char errorJmflBUFSIZ]; 

sprintf(error_buf t "Xaw Single Menu Widget: %s or %s, %s\ 
"label string is NULL", "label already exists", 
"no label is being created."); 

X tApp Warning (X t WidgetTo Appl icationContext(w) f error_buf) ; 

return; 

} 

XtSetArg(args(0] f XtNlabel, smw-> simple_menu.label_string); 
XtSetArg(argsll] f XtNjustify, XJustifyCemer); 
smw- > simple_mcnu. label = (SmeObject) 

XtCreateManaged Widget( " menuLabel " v 

smw- > simple_menu.label_class, w, 
args f TWO); 

next_child = NULL; 

for (child = smw- > composite .children + smw- > composite. num_children, 
i = smw- > composite. num_children ; i > 0 ; i — . child—) { 
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if (next_child ! = NULL) 
•ncxt_child = 'chiJd; 
ncxt^child = child; 

} 

*child = (Widget) smw- > simplejnenu.label; 

} 



Function Name: Layout 

Description: lays the menu entries out all nice and neat. 
Arguments: w - See below ( + + +) 

width_ret, height_ret - The returned width and 

height values. 

Returns: none. 

if width = = NULL j | height = = NULL then it assumes the you do not care 
about the return values, and just want a rclayout. 



if this is not the case then it will set width jet and hcigbt_rtt 

to be width and height that the child would get if it were layed out 

at this time. 

+ + + V" can be the simple menu widget or any of its object children. 

/ 



static void 

Layout(w, width_ret, height_ret) 
Widget w; 

Dimension *width_ret, *height_ret; 

{ 

SmeObject cuirentjrnny, *entry; 
SimpleMenuWidget smw; 
Dimension width, height; 
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Boolean dojayout = ((bcight_rc. == NULL) j j (width_ret == NULL)); 
Boolean allow_change_size; 
height = 0; 

if ( XUsSubclass(w % puliRightMenuWidgeiClass) ) { 
smw = (SimpleMenuWidget) w; 
current_entry = NULL; 

} 

else { 

smw = (SimpleMenuWidget) XtParent(w); 
current_entry = (SmeObjcct) w; 

) 

aliow_change_size = (!XtIsRealized((Widget)smw) 1 1 

(smw- > shell.aIlow_shell_Ttsize)); 

if ( smw->simple_menu.menujieight ) 
height = smw- > core. height; 

else 

if (dojayout) { 

height = smw- > simple_menu.top_margin; 
ForA110xildrtn(smw t entry) { 

if (!XtIsManaged( (Widget) *entry)) continue; 

if ( (smw- > simple_menu.row_height ! = 0) && 
(•entry ! = smw- > simple jnenu.label) ) 
(•entry)- > rectangle .height = smw->simple_menu.rowJieight; 

(♦enny)-> rectangle, y = height; 

(♦entry)- > rcctangie.x = 0; 

height + = (*entry)-> rectangle, height; 

} 
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height + = smwOsimple_menu.bonom_margin; 

} 

else { 

if {(smw->simple_menu.rowJieight != 0) Sc& 
(current_entry ! = smw- >simple_menu. label) ) 
heigh! = smwO simple_menu.row_height; 

} 

if (smw->simple_menu.menu_widlh) 

width = smw-> core, width; 
else if ( allow_change_size ) 

width = GetMemiWidth((Widget) smw, (Widget) cunxnt^entry); 

else 

width = smw- > core, width; 

if (do_layout) { 

ForAllChildren(smw, entry) 

if (XtIsManaged( (Widget) *entry)) 
(♦entry)- > rectangle, width = width; 

if (allow_change_size) 

MakeSetValuesRequest((Widget) smw, width, height); 

} 

else { 

♦widthjrt = width; 
if (height ! = 0) 

•height_ret = height; 

} 

} 



/* Function Name: AddPositionAction 

* . Description: Adds the XawPositionSimpleMenu action to the global 
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action lisi for this appcon. 
Arguments: app_con - ihe application context for this app. 

data - NOT USED. 
Returns: none. 

•/ 

/• ARGSUSED •/ 
static void 

AddPositionAction(app_con, data) 
XtAppContext app_con; 
caddr_t data; 

{ 

static XtActionsRec pos_actionQ = { 

{ B XawPositionSimpleMenu , \ PositionMenuAction }, 

>: 

XtAppAddActions(app_con, pos_action, XtNumbcr(pos_action)); 

} 

/• Function Name: FindMenu 

Description: Find the menu give a name and reference widget. 
Arguments: widget - reference widget. 

* name - the menu widget's name. 

* Returns: the menu widget or NULL. 
•/ 

static Widget 
FindMenu(widget, name) 
Widget widget; 
String name; 

{ 

register Widget w, menu; 
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for ( w = widget ; w ! = NULL ; w = XLParem(w) ) 
if ( (menu = XtNameToWidget(w. name)) ! = NULL ) 
return(mcnu); 
rerum(NULL); 

} 



Function Name: PositionMenu 
Description: Places the menu 
Arguments: w - the simple menu widget. 

location - a pointer the the position or NULL. 
Returns: none. 



static void 

PositionMenu(w, location) 
Widget w; 
XPoint * location; 

{ 

SimpleMenuWidget smw = (SimpleMenu Widget) w; 

SmeObject entry; 

XPoint i _point; 

static void MoveMenuQ; 



if (location « = NULL) { 
Window junkl, junk2; 
int root_x, root_y t junkX f junkY; 
unsigned int junkM; 

location = &tj>oim; 

if (XQueryPointer(XtDisplay(w) f XtWindow(w) f &junkl, &junk2, 

&root_x, &root_y, &junkX, &junkY, &junkM) = = FALSE) { 
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char erTorJwflBUFSIZ]; 

sprinrf(error_buf, "%s %s", "Xaw - SimpleMenuWidget:", 

"Could not find location of mouse pointer"); 
X tApp WarniDg(XiWidgeiToA ppl icationContex t(w) , error_bu 0 ; 
return; 

} 

location- > x = (short) root_x; 
location- >y - (shon) root_y; 

} 

/* 

• The width will not be conect unless it is realized. 
*/ 

XtRealizeWidget(w); 

location- > x - = (Position) w- > core. width/2; 

if (smw- > simple_menu.popup_entry == NULL) 
entry = smw- >simple_menu. label; 

else 

entry = smw->simple_menu.popup_entry; 

if (entry ! = NULL) 

location- >y -~ entry- > rectangle. y + entry- >rectangle.height/2; 

MoveMenu(w, (Position) location- >x, (Position) location- >y); 

} 

/♦ Function Name: MoveMenu 

* Descriprion: Actually moves the menu, may force it to 

♦ to be fully visable if menu_on_screen is TRUE. 



ci iocttti rrr cucrr /at fl C 



WO 94/23385 



PCT/GB94/00677 



- 311 - 

* Arguments: w - the simple menu widget. 

* x, y - the current location of the widget. 

* Returns: none 
•/ 

static void 

MoveMenu(w, x, y) 
Widget w; 
Position x, y; 

{ 

Arg arglisi[2]; 
Cardinal num_args = 0; 

SimplcMenu Widget smw = (SimplcMenuWidget) w; 

if (smw- > s implc_mcnu . menu_on_screen) { 

im width ■ w->corc.width + 2 * w- > core.border_width; 
int height = w-> core. height + 2 * w->core.border_width; 

if (x < 0) 
x«0; 
else { 

int scr_width = WidthOfScreen(XtScreen(w)); 
if (x + width > scr_width) 
x = scr_widlh • width; 

} 

if(y<0) 
y ■ 0; 
else { 

int scr_beight = HeightOfScreen(XtScreen(w)); 
if (y + height > scrjieight) 
y = scrjieight - height; 
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} 

} 

XiSetAig(arglist[nurn_args), XtNx, x); num_args+ + ; 
XtSetAig(ajglist[nura_args], XiNy, y); num_aigs + + ; 
XtSetValues(w. arglisi. num_args); 

} 

/" Function Name: ChangeCursorOnGrab 

• Description: Changes the cursor on the active grab to the one 

• specified in out resource list. 

• Arguments: w ■ the widget. 

junk, garbage - NOT USED •*. 

• Returns: None. 
•/ 

/* ARGSUSED •/ 
static void 

ChangeCursorOnGrab(w, junk, garbage) 
Widget w; 

caddrj junk, garbage; 
{ 

SimpleMenuWidget smw = (SimpleMenuWidget) w; 
/* 

• The event mask here is what is currently in the MTT implementation. 

• There really needs to be a way to get the value of the mask out 

• of the toolkit (CDP 5/26/89). 
•/ 

XChangeActivePointerGrab(XtDisplay(w), ButtonPressMask j BurtonReleaseMask, 

smw- > simplejnenu. cursor, CurrentTime); 
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} 

/* Function Name: MakeSetValuesRequest 

Description: Makes a (possibly recursive) call to SetValues, 

* I take great pains to not go into an infinite loop. 

* Arguments: w - the simple menu widget. 

* width, height - the size of the ask for. 

* Returns: none 
•/ 

static void 

MakeSetValuesRequest(w, width, height) 
Widget w; 

Dimension width, height; 
{ 

SimpleMenu Widget smw = (SimpleMenuWidget) w; 
Arg arglist[2]; 

Cardinal num_args = (Cardinal) 0; 

if ( !smw- > simple_menu.recursive_set_values ) { 

if ( (smw- > core. width != width) 1 1 (smw- > core. height f= height) ) { 
smw- >simple_menu. recurs We_$et_values = TRUE; 
XtSetArg(arglist[num_args] t XtNwidth, width); num^args + + ; 
XtSetAig(argIist[num_args] t XtNheight, height); num_args++; 
XtSetValues(w v arglist, num_args); 

} 

else if (XtIsRealized( (Widget) smw)) 

Redisplay((Widget) smw, (XEvent •) NULL, (Region) NULL); 

} 

smw- > simple_menu.recursive_set_vaJues = FALSE; 

} 
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/• Function Name: GetMenu Width 
» Description: Sets the length of the widest entry in pixels. 

* Arguments: w - the simple menu widget. 

* Returns: width of menu. 
-7 

static Dimension 
GetMenuWidth(w, w_ent) 
Widget w, w_ent; 

{ 

SmeObject currency = (SmcObject) w_ent; 
SimpleMcnu Widget smw = (SimpleMenuWidget) w: 
Dimension width, widest = (Dimension) 0; 
SmeObject * enny; 

if ( smw- > simple_menu.menu_width ) 
return(smw- > core, width); 

ForAUCbildren(srow, entry) { 
XtWidgetGeometry preferred; 

if (!XdsManaged( (Widget) •entry)) continue; 

if (•entry ! = cur_entry) { 

XtQueiyGcometry(*enny, NULL, Aprefened); 

if (prefcrred.requestjnode & CWWidth) 
width = preferred, width; 

else 

width = (•entry)- > rectangle.width; 

} 

else 
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width = (*eniry)-> rectangle. width; 

if ( width > widest ) 
widest = width; 

} 

retuntf widest); 

} 

/* Function Name: GetMenuHeight 

* Description: Sets the length of the widest entry in pixels. 

* Arguments: w - the simple menu widget. 

* Returns: width of menu. 
*/ 

static Dimension 
GetMenuHeight(w) 
Widget w; 
{ 

SimpleMenuWidget smw = (SimpleMenuWidget) w; 
SmeObject * entry; 
Dimension height; 

if (smw- > s impl e_menu . me nu_be ight) 
return(smw- > core. height); 

height = smw->simple_menu.top_margin + sraw->simple_mexni.bonom_margin; 

if (smw- > simple_menu.row_beight = = 0) 
ForAllChildren(smw f entry) 

if (XtlsManaged ((Widget) *entry)) 

height + = (*entry)-> rectangle, height; 
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else 

heigh! += smw->siinpie_menu.row_height " sm\v-> composite. num children; 
return(height); 

} 



/* Function Name: GciEvcniEntry 

* Description: Gets an entry given an event that has X and Y coords. 

* Arguments: w - the simple menu widget. 

* event - the event. 

* Returns: the entry that this point is in. 
V 

static SmeObject 
GetEventEnny(w f event) 
Widget w; 
XEvent • event; 

{ 

Position xjoc, yjoc; 

SimpleMenuWidget smw = (SimpleMenuWidget) w; 
SmeObject * entry; 



switch (event- > type) { 
case MotionNotify: 

xjoc - event- >xmooon.x; 

yjoc « event- >xmotion.y; 

break; 
case EnterNotify: 
case LeaveNotify: 

xjoc = event- >xcrossing.x; 

yjoc = event- >xcrossing.y; 

break; 
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case BunonPress: 
case BunonRelease: 

x loc = event- >xbunon.x; 

yjoc = event- >xbunon.y; 

break; 
default: 

XLAppEnor(XiWidgetToApplicationConiext(w), 

"Unknown event type in GetEventEntry ()."); 

break; 

} 

if ( (x loc < 0) 1 1 (xjoc > = smw->core.width) | j (yjoc < 0) 1 1 
(y loc > = $mw->core.height) ) 
returo(NULL); 

ForAllChildren(smw, enny) { 

if (IXtlsManaged ((Widget) 'enny)) continue; 

if ( ((*enny)->rectangle.y < yjoc) && 

((•enny)->rtciangle.y + (*cmry)->rcctangle.beight > yjoc) ) 
if ( * entry == srnw->simplc_mcnu. label ) 

remm(NULL); /• cannot select the label. */ 

else 

return(*entry); 



return(NULL); 

} 



WO 94/233*5 PCT/GB94/00677 

- 318 - 

source/Select.c 



/• 

• Selection from list widget 



^include " . ./include/xwave.h 



void Select(w,closure,calIjiata) 

Widget w; 

caddr_t closure, calljiata; 

{ 

Selection sel - (Selection)closure; 

Widget button = FindWidget(seI- > button, w), 

shell » ShellWidget(sel- > name .bunon.SW_below.NULL.NULL), 
form=FonnatWidget("sel_form\shell). list_widget, widge.ts[3]; 
String •list=(sel->list_proc)0; 
Fonnltem itcmsD«={ 

{ "sel_cancel " . "close " ,0,0,FW_icon,NULL} , 

{ "seljabcl" .(String)sel- > action_name, 1 ,0,FW_label,NULL} , 

{ "sel_view" ,NULL,0,2.FW_vicw,NULL} , 

}; 

XtCallbackRec list_callsQ = { 
{Destroy, (caddr_t)shcll} t 
{sel- > action__proc,sel- > action_closure}, 
{NULL,NULL}, 
. }, callbacks!] = { 
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{Destroy. (caddrj)shell} , 
{NULL,NULL}, 

}; 

Arg args(l); 

FillForm(form.THREE,items,widg«s,callbacks); 
XtSeiArg(args[0] .XiNlist.list); 

list widget = XtCreaieManagedWidgetrselJist*.listWidgctClass,widgets[2],args,ONE); 
XiAddCallbacks(list_widget,XtNcallback,list_calls); 
XtPopup(shell.XtGrabExdusive); 

} 
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source/SmeBSBpr.c 



#if( !defined(lint) &.& !defined(SABER) ) 

sialic char Xrcsid[] = "SXConsoniura: SmeBSB.c.v 1.9 89/12/13 15:42:48 kit Exp 5"; 
lend if 

/• 

♦ Copyright 1989 Massachusetts Institute of Technology 

• 

• Permission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 

• the above copyright notice appear in all copies and that both that 

* copyright notice and this permission notice appear in supporting 

♦ documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* wrinen prior permission. M.I.T. makes no representations about the 

♦ suitability of this software for any purpose. It is provided "as is* 

* without express or implied warranty. 

• M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.I.T. 

• BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

• WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
WHETHER IN AN ACTION 

• OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
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•/ 

/- 

• SmeBSBpr.c - Source code file for QSB pull-right Menu Entry object. 

s 

•/ 

^include <stdio.h> 
include <Xll/IntrinsicP.h> 
include <Xll/StringDefs.h> 

^include <X11/Xmu/Drawing.h> 

^include <X11/Xaw/Xawlnit.h> 
#include < XI 1/Xaw/SimpleMenu.h > 
#include "SmeBSBprP.h" 
^include <X11/Xaw/Caidinals.h> 

^define ONE_HUNDRED 100 

^define offset(ficld) XtOffset(SmeBSBprObject, sme_bsb. field) 

static XtResourcc resources D = { 
{XtNlabel, XtCLabel, XtRString, si2eof(String), 

offset(label), XtRString, NULL}, 
{XtNvertSpace, XtCVertSpace, XtRlni, si2cof(int), 

offset(ven_space), XtRImmediate, (caddrj) 25}, 
{XtNleftBitmap, XtCLeftBitmap, XtRPixmap, sizeof(Pixmap), 

offset(left_bitmap), XtRImmediate, (caddr_t)None}, 
{XtNjustify. XtCJustify, XtRJustify, sizeof(XtJustify), 

offset(justify), XtRImmediate, (caddrj) XtJustifyLeft}, 
{XtNrightBitmap, XtCRigbtBinnap, XtRPixmap, sizeof(Pixmap), 
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offset(right_bitmap), XiRlmmediate, (caddr_t)None} f 
{XtNlefiMargin, XtCHorizontaJMargins. XtRDimension, sizeof(Dimension). 

offset(lefi_margin), XiRImmediatc, (caddrj) 4}. 
{XtNrighiMargin, XtCHorizomalMargins, XtRDimcnsion. sizeoffDimension). 

offset(right_margin), XtRImmediate, (caddrj) 4}, 
{XiNforeground. XtCForcground, XiRPixel, si2eof(Pixel), 

offset(foreground), XiRSiring, "XiDefaultForeground"}, 
{XiNfoni, XtCFont, XiRFontSmict, sizeof(XFontStruct •), 

offset(font), XiRString, "XtDefaultFont"}, 
{XiNmenuName, XtCMenuNarne, XiRString, si2cof(String), 
offset(rnenu_narne), XiRString, (caddrj) "menu"}, 

}; 

#undef offset 
/• 

* Semi Public function definitions. 
•/ 

static void RedisplayO, DestroyO, InitializeO, FlipColorsO, PopupMenuO; 

static void ClassInitiaJizeO; 

static Boolean SetVaJuesO; 

static XtGeometry Result QueryGeomeuyO; 

/• 

* Private Function Definitions. 
•/ 

static void GeiDefaultSizeO, DrawBitmapsO, GetBinnapInfoO; 
static void CrcateGCsO. DestroyGCsO; 



^define superclass (&smeClassRec) 
SmeBSBprClassRec smeBSBprClassRec 



= { 
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{ 

/■ superclass */ (WidgetClass) superclass, 

/• class name */ "SmeBSBpr", 

/- S i2e */ sizeof(SmeBSBprRec), 

/• class_ initializer V Classlnitialize, 

/• class jjartjnitialize*/ NULL, 

/* Class init'ed */ FALSE, 

/* initialize */ Initialize, 

/* initializejiook •/ NULL, 

/» realize •/ NULL, 

/* actions */ NULL, 

/♦ num_actions */ ZERO, 

/* resources */ resources, 

/♦ resource count */ XtNumber(resourcc$), 

/• xrro_class */ NULLQUARK, 

/* comprcssjnotion */ FALSE, 

/• compress_exposure */ FALSE, 

/* compress_enterleave*/ FALSE, 

/* visible_intercst */ FALSE, 

/♦ destroy */ Destroy, 

/• resize •/ NULL, 

/• expose */ Redisplay, 

/• set_values •/ SetValues, 

/* set_values_hook */ NULL, 

/* set value$_almost */ XtlnheritSetValuesAlmost, 

/♦ get_values_hook */ NULL, 

/* acceptjbeus */ NULL, 

/• inirinsics version */ XtVersion, 

/* callback offsets */ NULL, 

/• tmjable */ NULL, 

/* query _geometiy */ Query Geometry, 

/* display_accelerator*/ NULL, 
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/" extension •/ NULL 

).{ 

/• Menu Entry Fields */ 

/* highlight *! FlipColors, 
/" unhighlight */ FlipColors, 
/* notify •/ PopupMenu, 
/• extension */ NULL 

}. { 

/• BSB pull-right Menu entry Fields */ 
/• extension */ NULL 

} 

}; 

WidgetClass smeBSBprObjectClass « (WidgetClass) AsmeBSBprClassRec; 


* Semi-Public Functions. 
* 

v •»•«•/ 

/* FuiKtion Name: Classlnhialize 

* Description: Initializes the SmeBSBprObject, 

* Arguments: none. 

* Returns: none. 
♦/ 

static void 

ClassInitializeO 

{ 



WO 94/23385 



PCT/GB94/006T7 



- 325 - 

XawlniiiaJizeWidgetSeK); 

XiAddConvencr( XiRString, XtRJustify, XmuCnSiringToJustify, NULL, 0 ); 

} 

/* Function Name: Initialize 

* Description: Initializes the simple menu widget 

* Arguments: request - the widget requested by the argument list. 

* new - the new widget with both resource and non 

* resource values. 

* Returns: none. 
*/ 

/• ARGSUSED •/ 
static void 

Initialize(request f new) 
Widget request, new; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) new; 

if (entry- > sme_bsb. label = = NULL) 
entry- >sme_bsb. label = XtName(new); 

else 

entry- >sme_bsb. label = XtNewString( entry- >sme_bsb. label ); 

/* Xaw bug - bitmap initialization now performed +/ 
if (entry- > sme_bsb.left_binnap != None) GetBitmaplnfo (entry, TRUE); 
if (entry- > sme_bsb.rightj>itmap != None) GetBitmapInfo(entry, FALSE); 

CreateGCs(new); 

GetDefaultSize(new, &(entry->rectangle.width) t .&(entry-> rectangle. height)); 

} 
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/• Function Name: Destroy 

Description: CaJled at destroy tune, cleans up. 

* Arguments: w - the simple menu widget. 

* Returns: none. 
»/ 

static void 
Destroy(w) 
Widget w; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
DcstroyGCs(w); 

if (entry- >sme_bsb. label != XtName(w)) 
XiFree(entry- > sme_bsb. label); 

} 

/* Function Name: Redisplay 

Description: Redisplays the contents of the widget. 
Arguments: w - the simple menu widget. 

* event - the X event that caused this redisplay, 

* region - the region the needs to be repainted. 

* Returns: none. 
•/ 

/• ARGSUSED V 
static void 

Redisplay(w, event, region) 
Widget w; 
XEvent * event; 
Region region; 

{ 
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GC gc; 

SraeBSBprObjeci entry = (SineBSBprObject) w; 
int font_ascent, font_descent, yjoc; 

enrry->smej)sb.set_values_area_cleared = FALSE; 

font ascent = entry- >sme_bsb.fom->max_bounds. ascent; 

font_descent = entry- >sme_bsb. font- >raax_bounds. descent; 

yjoc = entry- > rectangle, y; 

if (XtlsSensitive(w) && XtIsSensitive( XtParent(w) ) ) { 

if ( w = = XawSirapleMenuGetAcriveEntry(XtParent(w)) ) { 
XFUlRectangJe(XtDisplayOfObject(w), XtWindowOfObject(w), 
entry- > sme_bsb.nonn_gc f 0, y_loc, 
(unsigned int) entry- > rectangle. width, 
(unsigned int) entry- > rectangle. height); 
gc = entry- >sme_bsb.rev jgc; 

} 

else 

gc = entry- > srae_bsb.nonn_gc; 

} 

else 

gc = entry- > sme_bsb.norm_gray_gc; 

if (entry- > smej>sb.label != NULL) { 

int x Joe «= entry- >sme_bsb.left_niargin; 
int len = strlen(entry->sme_bsb.tebel); 
char * label = entry- >sme_bsb.label; 

switch(entry- > sme_bsb.justify) { 
int width, t width; 
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case XtJustifyCemer: 

i width = XTextWidth(entry->sme_bsb.font, label, len); 

width = entry- > rectangle. width - (entry- >sme_bsb.left_margin + 

entry- > sme_bsb.right_raargin); 

xjoc + = (width - t_width)/2; 

break; 
case XUustifyRight: 

t_width = XTextWidth(entry->sroe_bsb.font, label, len); 

x loc = entry- > rectangle. width - (entry- > sme_bsb.right_margin + 

t_width); 

break; 
case XtJustifyLeft: 
default: 

break; 

} 

yjoc + = (entry- > rectangle. height - 

(font_ascent + font_descent)) / 2 + fom_ascent; 

XDrawString(XtDisplayOfObject(w) f XtWindowOfObject(w), gc f 
xjoc, yjoc, label, len); 

} 

DrawBitmaps(w, gc); 

> 



/• Function Name: SetValues 

♦ Description: Relayout the menu when one of the resources is changed. 

• Arguments: current - current state of the widget. 

* request - what was requested. 

* new - what the widget will become. 
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• Returns: none 
•/ 

/• ARGSUSED */ 
static Boolean 

SetValues(cunent, request, new) 
Widget current, request, new; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) new; 
SmeBSBprObject old_entry = (SmeBSBprObject) current; 
Boolean ret_val = FALSE; 

if (old entry- > sme_bsb. label != entry- > sme_bsb. label) { 
if (old_entry- > sme_bsb.label ! = XtName( new ) ) 
XtFree( (char •) old_entry-> sme_bsb.label ); 

if (entry- > sme_bsb.label != XtName(new) ) 

entry- >sme_bsb. label = XtNewString( entry- >sme_bsb.label ); 

ret_val - True; 

} 

if (entry- > rectangle.sensirive != old_entry->rectangle.sensitive ) 
ret_val = TRUE; 

if (entry- > sme_bsb.left_bitmap != old_enn7- > smejwb Jeftjjitmap) { 
GetBitmapInfcKnew, TRUE); 
ret_val = TRUE; 

} 

if (entry- >sme_bsb.right_bitmap ! = old_erary- > sme_bsb.right_bitmap) { 
GetBitmaplnfo(new, FALSE); 
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ret val = TRUE; 



if ( (old entry- > sme_bsb. font != entry- >sme_bsb. font) | j 

(old entry- >sme_bsb. foreground != entry- >sme_bsb. foreground) ) { 
DestroyGCs(currem); 
CreateGCs(new); 
ret val = TRUE; 



if (ret_val) { 

GetDcfaultSize(new, 

<Sc(entry- > rectangle. width), &(entry- > rectangle.height)); 
entry- > sme_bsb.set_values_area_cleared = TRUE; 

} 

return(ret_val); 



Function Name: Query Geometry. 

Description: Returns the preferred geometry for this widget. 
Arguments: w - the menu entry object. 

itended, retum_val - the intended and return geometry info. 
Returns: A Geometry Result. 



See the Intrinsics manual for details on what this function is for. 



* I just return the height and width of the label phis the margins. 
*/ 

static XtGeometryResult 
QueryGeometry(w, intended, rtuirn_val) 
Widget w; 
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XtWidgctGeometry *intended, »retum_val: 
{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
Dimension width, height; 
XtGeometryResult ret_val = XtGeometryYes; 
XtGeometryMask mode = intended- > request_mode; 

GetDefaultSize(w, &width, &height ); 

if ( ((mode & CWWidth) && (intended- > width != width)) j | 
!(mode & CWWidth) ) { 
retum_val- > rtquest_mode | = CWWidth; 
return_val- > width - width; 
ret_val = XtGeometry Almost; 

} 

if ( ((mode & CWHeight) &A (intended- > height != height)) 1 1 
!(mode & CWHeight) ) { 
rctura_val- > request_mode | = CWHeight; 
return_val-> height = height; 
rct_val = XtGeometry Almost; 

} 

if (ret_val = = XtGeometry Almost) { 
mode = renirn_vaJ->rcquest_mode; 

if ( ((mode & CWWidth) && (width = = entry- > rectangle. width)) && 
((mode & CWHeight) && (height == entry- > rectangle. height)) ) 
return(XtGeometryNo); 

} 



retum(ret_val); 
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} 

/» Function Name: FlipColors 

Description: Invert the colors of ihc current entry. 

* Arguments: w - the bsb menu entry widget. 

• Returns: none. 
*/ 

static void 
FlipColors(w) 
Widget w; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 

if (entry- > sme_bsb . set_vaJues_area_cleared) return; 

XFillRectangle(XtDisplayOfObject(w) f XtWindowOfObject(w), 

entry- >sme_bsb.invert_gc f 0, (int) entry- >rectangle.y, 
(unsigned int) entry- > rectangle. width, 
(unsigned int) entry- >rectangle.height); 

} 

♦ 

♦ Private Functions. 

/♦ Function Name: GetDefaultSize 

♦ Description: Calculates the Default (preferred) si2e of 

* this menu entry. 

* Arguments: w - the menu entry widget. 
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width, height - default sizes (RETURNED). 
* Returns: none. 
*/ 



static void 

GetDefaultSize(w, width, height) 
Widget w; 

Dimension * width, * height; 
{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 

if (entry- > sme_bsb. label = = NULL) 
*width = 0; 

else 

•width = XTextWidtb(entry- > sme_bsb.font, entry- > smej>sb. label, 

strlen(entry- > sme_bsb. label)); 

•width += entry- >sme_bsb.left_margin + entry- > sme_bsb.right_margin; 

•height = (entry- >sme_bsb. font- > max_bounds.ascent + 
entry- > sme_bsb.font- > max_bounds. descent); 

•height = (*height * ( ONE_HUNDRED + 

entry- > sme_bsb.ven_space )) / ONEHUNDRED; 

} 

/* Function Name: DrawBitmaps 

* Description: Draws left and right bitmaps. 

* Arguments: w - the simple menu widget 

* gc - graphics context to use for drawing. 

* Returns: none 
•/ 
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static void 

DrawBinnaps(w, gc) 
Widget w; 
GC gc; 

{ 

int xjoc, y_loc; 

SmeBSBprObject entry = (SmeBSBprObject) w; 

if ( (entry- >sme_bsb.left_bitmap = = None) && 

(entry- >sme_bsb.right_bitmap = = None) ) return; 

/• 

* Draw Left Bitmap. 
*/ 

y loc = entry- > rectangle. y + (entry- > rectangle. height - 

entry- > sme_bsb.left_binnapjieight) / 2; 

if (entry- > sme_bsb.left_bitmap ! = None) { 
x loc = (entry- > sme_bsb.left_margin - 

entry- >sraej>sb.left_bitmap_width) / 2; 
XCopyPlane(XtDisplayOfObject(w), entry- > sme_bsb.left_bitmap, 
XtWindowOfObject(w), gc, 0, 0, 
entry- > sme_bsb.left_bitmap_width, 
entry- >sme_bsb.left_bitmap_height, xjoc, yjoc, 1); 

} 
/* 

• Draw Right Bitmap. 
•/ 

y loc = entry- >rectangle.y + (entry- > rectangle. height - /* Xaw bug - yjoc 
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calculated from right_bitmap data •/ 

entry- > sme_bsb.right_bitmap_height) / 2; 

if (entry- >sme_bsb.right_bitroap != None) { 
x loc = entry- > rectangle. width - (entry- > sme_bsb.right_margin + /* Xaw bug - + 

rather than - sign */ 

entry- >sme_bsb.right_bitmap_width) / 2; 
XCopyPlane(XtDisplayOfObject(w), entry- > sme_bsb.right_bitmap, 
XtWindowOfDbject(w), gc, 0, 0, 
entry- > sme_bsb. right_bitmap_width, 
entry- >sme_bsb.right_bitmap_height, xjoc, yjoc, 1); 

} 

} 



/* Function Name: GetBitmapInfo 

* Description: Gets the bitmap information from either of the bitmaps. 

♦ Arguments: w - the bsb menu entry widget. 

• isjeft - TRUE if we art testing left bitmap, 

• FALSE if we are testing the right bitmap. 

* Returns: none 
•/ 

static void 

GetBitmaplnfo(w t isjeft) 
Widget w; 
Boolean isjeft; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
unsigned int depth, bw; 
Window root; 
int x, y; 

unsigned int width, height; 
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char buflBUFSlZ); 

if (is Jeft) { 

if (entry- > sme_bsb.left_bitmap ! = None) { 
if (!XGctG€omctry(XlDisplayOfObject(w), 

entry- > sme_bsb.left_binnap, &root, 
&x, &y, & width, &beigbt, &bw, &depth)) { 
sprintffljuf. "SmeBSB Object: %s %s \"%s\\", "Could not", 
"get Left Bitmap geometry information for menu entry 
XtName(w)); 

XiAppError(XtWidgctToApplicarionContcxt(w), buf); 

} 

. if (depth != 1) { 

sprintf(buf, "SmeBSB Object: %s VSs\"%s.". 
"Left Bitmap of entry \ 
XtName(w), " is not one bh deep."); 

XtAppEiTor(XtWidgetToApplicaiionContext(w), buf); 

} 

entry- > sme_bsb.left_bitmap_width = (Dimension) width; 
entry- >sme_bsb.left_bitmap_heignt = (Dimension) height; 

} 

} 

else if (entry- > smej>sb.righij>itmap ! = None) { 
if (!XGetGcometry(XtDisplayOfObject(w), 

curry- > sme_bsb.right_biimap, &root, 
&x, &y, &width, Aheighl, &bw, &depth)) { 
sprintf(buf, "SmeBSB Object: %s %% \"%*\".", "Could not", 

"get Right Bitmap geometry information for menu entry ", 
XtName(w)); 

XtAppEnor(XtWidgetToApplicationConiext(w), buf); 

} 

if (depth != 1) { 
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sprintf(buf, "SmeBSB Object: %s \"%s\"*s.", 

•Right Bitmap of entry ", XtName(w), 

' is not one bit deep."); 
XtAppError(XtWidgetToApplicationContext(w), buf); 

} 

entry- >sme_bsb.right_bitmap_width = (Dimension) width; 
entry- > sme_bsb.right_bitmap_beight = (Dimension) height; 

} 

} 

/* Function Name: CreateGCs 

* Description: Creates ail gc's for the simple menu widget. 

* Arguments: w - the simple menu widget. 

* Returns: none. 
•/ 

static void 
CreateGCs(w) 
Widget w; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
XGCValues values; 
XtGCMask mask; 

values, foreground = XtParent(w)->core.background_pixel; 
values, background = entry- > sme_bsb. foreground; 
values, font = entry- > sme_bsb.font- > fid; 
values. graphics_exposures = FALSE; 

mask = GCForegTOund | GCBackground | GCFont | GCGraphicsExposures; 
entry- >srae_bsb.rev_gc - XtGetGC(w, mask, &values); 

values, foreground = entry- > sme_bsb.foreground; 
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values, background = XtParent(v.O-> core, background j)ixel; 
entry- > sme_bsb.norm_gc = XtGetGC(w ( mask, Rvalues); 

values. fill_style = FillTiled; 

values. tile = XmuCreaieStippIedPixjnap(XtScreenOfObject(w), 

?ntry- > sme_bsb. foreground, 
XlParent(w)- > core.background_pixel f 
XtParent(w)- > core. depth); 

values. graphics_exposures = FALSE; 

mask j = GCTile | GCFillStyle; 

entry- >sme_bsb.norm_gray_gc = XtGetGC(w, mask, &values); 

values. foreground A = values. background; 
values, background = 0; 
values, function = GXxor; 

mask = GCForeground | GCBackground | GCGraphicsExposures | GCFunction; 
enny->sme_bsb.invenjc = XtGetGC(w, mask, lvalues); 

} 

/* . Function Name: DestroyGCs 

• Description: Removes all gc's for the simple menu widget. 

• Arguments: w - the simple menu widget. 

• Returns: none. 
•/ 

static void 
DestroyGCs(w) 
Widget w; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
XtReleaseGC(w, entry- >sme_bsb. norm _gc); 
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XtRcleaseGC(w, enrry->sraeJ)sb.norm_gray_gc); 
XiReleascGC(w, emiy- > smej>sb.rev _jc); 
XtRcleaseGC(w, entry- >smej>sb.invert_gc); 

} 

#ifdef apollo 
/• 

♦ The apollo compiler thai we have optomizes oui my code for 

♦ FlipColorsO since it is static, and no one executes it in this 

• file. I am setting the function pointer into the class structure so 

• that it can be called by my parent who will tell me to when to 

* highlight and unhighJight. 
*/ 

void _XawSmeBSBApolloHack 0 
{ 

FlipColorsO; 

} 

#endif /• apollo •/ 

/• Hacked copy of PopupMenu from MenuBurton widget to replace XtlnberitNotify */ 
static void 

PopupMenu(w, event, paxams, num_params) 
Widget w; 
XEvent * event; 
String * params; 
Cardinal * num_params; 

{ 

SmeBSBprObject mbw = (SmeBSBprObject) w; 
Widget menu, temp; 
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Arg arglist[2]; 
Cardinal num_args; 

int menu x, menu_v, menu_width, menu_height f bunon_width, bunon_height; 
Position button_x, button_y; 

temp = XtParent(w); /• Shell not menu entry is parent of menu */ 

whik(temp ! = NULL) { 
menu = XtNaroeToWidget(temp, mbw->sme_bsb.menu_name); 

if (menu = = NULL) 

temp = XiPartnt(temp); 
else 

break; 

} 

if (menu = = NULL) { 
char error.buflBUFSIZ] ; 
sprinrf(error_buf, "MenuButton: %s %s.", 

"Could not find menu widget named", mbw->sme_bsb.mcnu_name); 
XiAppWaraing(XtWidgetToApplicaiionContext(w) f error Jwf); 

remrn; 

} 

if (!XtIsRealized(menu)) 
XtRealizeWidgetOnenu); 

menu width - menu- > core. width + 2 * menu- > core. border^ width; 
button width = w-> core. width + 2 * w->corc.border_width; 
button height = w-> core. height + 2 * w->core.border_width; 

menu height = menu- > core. height + 2 * menu- > core. border_width; 

XtTranslateCoords(w f 0, 0 f &button_x, Abuttonj); 
menu_x = button_x + button_width; 
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mcnuj = butionjf; 

if (menujc < 0) 

menu_x = 0; 
else { 

int scr_width = WidthOfScreen(XtScreen(menu)); 
if (menujc + racnu_width > scrjvidth) 
menujc = scr_width - menu_width; 

} 



if (menujr < 0) 

menu_y = 0; 
else { 

ini scr_height « HeighiOfScreen(XtScreen(menu)); 
if (menu_y + menu_beigbt > scr_heigbt) 
menu_y = scrheight - menu_height; 

} 



num_args = 0; 

XtSetAig(arglist[nuin_args] f XiNx, menujc); nuro_args+ 
XtSetArg(arglist[num_args], XtNy, menu jr); num_args+ 
XtSetValue$(menu, arglist, num_args); 



XtPopupSpringLoaded(menu); 
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source/Storage, c 
/* 

Routines to allow video frames to be stored in memory 

or on disk: NewFrame, GeiFrame, SaveFrame, FreeFrame, SaveHeader, 

CopyHeader. 
•7 

^include "../inchide/xwave.h" 

extern FILE *zropen(); 

extern void zseekO; 

extern void zclose(); 

void NewFrame(vid, number) 

Video vid; 
int number; 

{ 

if (vid- > data[0] (number] = = NULL) { 

int channel, channels = vid- >type==M0N0?l:3; 

for(channel = 0;channel < channels ;channel + + ) 
vid- > daia[channel] [number] = (short 
•)MALLOC(sizeof(shori)»Size(vid,cnannel,0)*Si2e(vid,channel,l)); 

} 

} 

void GetFrame(vid,number) 



Video vid; 
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int number; 

{ 

if (vid- > datafO] [number] - = NULL) { 

char file_name[STRLEN], ♦whole_frarac; 
FILE *fp. *fopen(); 
int pid, r. c, channel, 

stan = vid- > x_offset + vid- > cols'vid- > y_offset, 

end = (vid- > iows-vid- > y_offset-vid- > sbx(l])*vid- > ecls-vid- > x_offs«, 

inter=vid- >cols-vid-> sizc[0]; 

NcwFrarac(vid, number); 

sprinrf(file_name," %s%s/%s/%s%03d\0" .global- > bome,IMAGE_DIR, vid- > path.vid- > f 
iles[0] = = '\0'?vid- > name:vid- > files,number+vid- > start); 

Dprinrf( "Reading file %s\n\file_name); 

fp«zropcn(file_name,&pid); 

if (vid- > precision = =0) whole_frame = (char 
•)MALLOC(vid- > rows*vid- > cols); 

zseek(fp,vid- > offset); 

for(channel=0;channel<(vidoiype==MONO?l:3);channel+ +) { 
int shift(2] = { vid- > type ==YUV&& 
channel! =0?vid- > UVsample[0]:0,vid- > type - - YUV && 
channel! =0?vid- > UVsample[l]:0); 

Dprintf( "Reading channel %d\n",cbannel); 
if (vid- > precision™ «=0) { 

if(0= =fTead(whole_frame,si2eof(char),(vid->cols> >shiftlO])*(vid->rows> >shift[l]), 
rp)){ 

Dprinn("ErTor whilst reading %s\n\file_name); 
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Eprintf( "Error whilst reading 7es\n\file_name); 

} 

Mr = 0;r < vid- > size[ 1 ] > > shift[ 1] ;r + + ) 

for(c = 0;c < vid- > size(O) > > sbift(0] ;c + + ) { 
shon 

vid- > cols > > shiftlO])]); 



,id- > datalchznnelllnumbcrllc-fr^vid- > sizelO] > > shifi(0])] = vid- > negative?-l-pel:pel; 

} 

} else { 

if (start! =0) zseek(fp.start*sizeof(shon)); 
for(r=0;r<vid->size[l]> >shift[l];r++) { 

if(0= = fread(&(vid- > daulchannclllnumberllr-tvid- > size[0] > > shift[0])]),sizeof (short), 
vid- > size[0] > > shift[0],rp)) { 

Dprintff Error whilst reading 

%s\n",file_name); 

EprintfCError whilst reading 

%s\n".filc_name); 

} 

if (inter! =0) zseek(fp,inter*sizeof(short)); 
if (vid- > negative) 

for(c=0;c< vid- > size[0] > > shinlO];c+ +) 

vid- > datalchannelllnumberllc + f(vid- > size[0] > > shift[0])] =-l-vid- > datatchannel][nu 
mber](c+r*(vid- > size{0] > > sbift[0])]; 



WO 94/23JW PCT/GB94/00677 

- 345 - 

source/Storage.c 



Routines to allow video frames to be stored in memory 

or on disk: NewFramc. GetFrame, SaveFrame. FreeFrame. SaveHeader. 

CopyHeader. 
•/ 

^include " . ./inciude/xwave.h" 

extern FILE •zropenO; 

extern void zseekO; 

extern void zcloscO; 

void NewFrame(vid,numbcr) 
Video vid; 

* 

int number; 
{ 

if (vid- > data[0)[numberl = = NULL) { 

int channel, channels =vid->type==MONO?l:3; 

for(channel = 0;channel < channels jchannel + + ) 
vid- > data[channel] [number] = (short 
•)MAlXOC(sizi»f(shon)*Size(vid.charmel,0)*Si2e(vidxhannel,l)); 

} 

} 

void GetFrame(vid,number) 



Video vid; 
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int number; 



{ 

if (vid- >daia[0][numbcr]= =NULL) { 

char file_name[STRLEN], *whole_frame; 
FILE *fp, *fopen(); 
int pid, r t c, channel, 

start = vid- > x_offset+ vid- > cols* vid- > y_offset, 

end = (vid- > rows- vid- > y_offset-vid- > size[l])*vid- > cols- vid- > x_offset, 

inter = vid- > cols-vid- > size{0]; 

Ne wFrame( vid , number) ; 



sprimfCfile^naine, " %s%s/%s/%s%03d\0\global- > home ,IMAGE_DIR f vid- > patb.vid- > f 
iles[0] = = *\0*?vid- > namervid- > files , number + vid- > stan); 

DprintfCReading file %s\n\file_name); 

fp = zropen(file_name ,&pid) ; 

if (vid- > precision ==0) whole_frame = (chai 
*)MALLOC(vid- > rows*vid- > cols); 

zsetk(fp,vid- > offset); 

for(channel =0;channel < (vid- > type= = MON071 :3);channe! + +) { 
int shift[2] = { vid- > type = = YUV&& 
channel! =0?vid- > UVsamplc[0]:O f vid- >type==YUV && 
channel ! = 0?vid- > UVsamplel 1 ] :0} ; 

DprinrfCReading channel %d\n\ channel); 
if (vid- > precision ==0) { 

if(0= = fread(whole Jrame, sizeof(char) f (vid- > cols > > shift[0])*(vid- > rows > > shiftfl]), 
fp)){ 

DprintfCError whilst reading %s\n\file_name); 
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Eprintft "Error whilst reading %s\n",file_name); 

} 

for(r=0;r<vid->size[l]> >shift[l];r++) 

for(c = 0:c < vid- > size[0] > > shift[0] ;c + + ) { 
shon 

pel =cti(whole_frame((vid- > x_offsct > > shift[0]) +c + ((vid- > y_offset > > shift[l])+r)*( 
vid- > cols > > shift[0])]); 



vid- > daia[chaimel][number][c+r*'(vid- > size[0] > > shift(0])] =vid- > negative?-l-pel:pel; 

} 

} eke { 

if (stan! =0) zseek(fp.start*sizeof(short)); 
for(r=0;r<vid->size[l]> >shift[l];r++) { 

if(0= - fread(&(vid- > dau(chajmel]lnumber][r*(vid- > sizelO] > > shift[0])]),sizcof(short). 
vid- > size[0] > > shift[0],fp)) { 

Dprinrf("Enor whilst reading 

%s\n\file_name); 

Eprintf("Enor whilst reading 

%s\n",file_nanie); 

} 

if (inter! = 0) zseek(fp,inter*sizeof(short)); 
if (vid- > negative) 

for(c=0;c < vid- > size[0] > > shift(0];c + +) 

vid- > data[channel)[numberJlc +r*(vid- > size[0] > > shift[0])] =-l-vid- > data[channel][nu 
mbcr] [c + r*(vid- > size[0] > > shiftTO])] ; 
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} 



void SaveHeadcr(vid) 

Video vid; 

{ 

FILE *fp. •fopenO; 

char file_naroe[STRLEN] ; 

String rypesa = {"MONO","RGB","YUV-}; 

DprintfCSaveHeader %s\n",vid->name); 

sprinrf (filename/ %s %s/ % s % s\0" .global- > home .VIDDIR, vid- > name,VID_EXT): 

fp=fopen(filc_naine,"w"); 

fpriDtf(fp. "Path \" %s\'\n',vid- > path); 

if (vid- > filesfO]! = '\0*) fprintftfp. "Files \" %s\"\n",vid- > files); 

if (vid->rype==YUV) fprintf(rp,"Type %s %d 
%d\n",rypes[vid- > rype],vid- > UVsample[0].vid- > UV$ample[l]); 

else fprintf(fp,"Type %s\n",rypes[vid->typej); 

if (vid- > rate!* 0) fprmtf(fp,"Rate %d\n",vid->rate); 

if (vid- > disk) fprintf(fp,"Disk\n"); 

if (vid- > gamma) fprintf(ft),"Gamnia\n"); 

fprintf(fp, "Stan %03d\n",vid- > sun); 

fprintf(fp, "Length %d\n",vid->sizel2]); 

fprintftfp, "Dimensions %i %d\n",vid->cols,vid->rows); 

switch(vid->trans.rype) { 

case TRANS_None: fprintf(rp, "Transform None\n"); break; 

case TRANS_Wave: fprintf(fp, "Transform Wavelet %d %d 
%s\n" .vid- > trans. wavelct.space[0].vid- > trans. wavelet.space[ l],vid- > trans, wavelet.dirn 
?"Yes":"No"); break; 



WO 94/21385 



- 349 - 

} 

fprintf(fp. "Header %d\n" ,vid- > offset): 

fprinrf(fp, "Offsets %d ?cd\n".vid-> x_offset,vid- > y_offset); 

fprintf(fp,"Size %d %d\n\vid->.size(0].vid->size[l]); 

fprintf(fp, "Precision %d\n",vid-> precision); 

fclose(fp); 

} 

Video CopyHcader(src) 

Video sre; 

{ 

Video dst=(Video)MALLOC(sizeof(VideoRec)); 
int channel; 

Dprintf("CopyHeader %s\n\src); 

strcpy(dst- > path,src- > path); 

strcpy(dst- > name.src- > name); 

dst- > type - sre- > type; 

dst- > disk = sre- > disk: 

dst- > gamma = sre- > gamma; 

dst- > negative = False; 

dst- > rate = sic- > rate; 

dst- > start =src- > start; 

dst- > sizefO] = sic- > size[0]; 

dst- > sizell] =src-> size[l]; 

dst- > siie[2] =sic- > sizePJ; 

dst- > UVsample[0]«=STC- > UVsamplelO]; 

dst- > UVsamplell] =src- > UVsample(l]; 

dst- > offset =0; 

dst- > cols = sre- > sizef.0]; 
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dsi- > rows = src - > s ize [ 1 ] ; 

dst->x_offset=0; 

dst->y.offsct=0; 

dst- > trans = src- > irans; 

dst- > precision = src- > precision; 

for{cbannel = 0;ch2nnel < (sic- > type= = M0N0?1 :3):channel + + ) 

dst- >data[channel] = (short **)MALLOC(src- > sizc[2]*sizeof(shorT *)); 

rerurn(dst); 
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source/Transfonn.c 



/* 

Transform video using wavclci transform 

*/ 

^include "xwave.h" 
/Cincludc •Transform.h'' 
extern shon RoundO; 

void DropVideo(w,closure,call_data) 

Widget w; 

caddr t closure, calljiata; 

{ 

Video video=global- > videos- > next; 
int frame, channel; 

for(channel =0;channel < (global- > videos- > type= = MONO? 1 : (global- > videos- > type 

= YUV?3:4));channel+ +) 

if (global- > videos- > data[channel] ! = NULL) { 

for (frame =0; frame < global- > videos- > size[2J;frame+ +) 
if (global- > videos- > dataf channel][frame] ! = NULL) 

XtFree(global- > videos- > data[channcl][fiame]); 

XtFree(global- > videos- > data (channel]); 

) 

XtFree(global- > videos); 
global- > videos ■ video; 
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} 

void OnngePrecision(src,dst. frame, old, new) 

Video src, dsi; 

ini frame, old, new; 

{ 

int channel, i; 

if(src!=dst j| old! = new) { 
int shift = new-old; 

DprinrfCChanging precision %d 10 %d for frame %d\n* ( old, new .frame); 
for (channel=0;channel<(src->type = = MONO?l:3);channcl + +) { 
int size=Size(src,channel f O) # Size(src t channel t l); 

foHi °0;i < size;i + +) 

dst- > daia(channel][frame][i] = shift <0?Round(src- > dau[channel][frame][i] f -shift):(shift 
= =0?src- > data(channel] [frame] [i]:src- > data[channcl][frame][i] < < shift); 

} 

} 

} 

void TransformCtrl(w f closure,call_data) 

Widget w; 

caddrj closure, calljiata; 



{ 

TransCtri Ctrl = (TransCtrl)closurc; 
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Video src=cirl->src. dst=CopyHcader(src); 
long i. frame, channel; 

Dprintf ( "Transf ormCirUn " ) ; 

stxcpy(dst- > name. Ctrl- > name); 

dst- > trans.type=TRANS_Wave; 

dst- > trans, wavelet. space[0] =ctrl- > space[0]; 

dst- > trans, wavelet. space[ 1 ] =ctrl- > space[l]; 

dst- > trans.wavelet.dirn=ctrl- > dim; 

dst- > precision = Ctrl- > precision; 

strcpy(dst- > files,dst- > name); 

if (dst- > disk) SaveHeader(dst); 

if (src- > trans. type! =TRANS_Wave) { 

src- > trans. type =TRANS_Wave; 

src- > trans.wavelet.space[0] =0; 

src- > trans.wavelet.space[l] =0; 

} 

if (src- > trans.wavelet.spacelO]! =dst- > trans. wavelet.space[0] 1 1 
src- > trans.wavelet.space[l]! =dst- > trans.wavelet.spacell]) 
for(frame =0;frame < dst- > size[2];frame+ +) { 
int 

max_precision« src- > precision > dst- > prccision?sre- > precision:dst- > precision; 

Dprintf ( "Processing frame %d\n", frame); 

NewFrame(dst,rrame); 

GetFrame(STC.frame); 

ChangePrecision(src,dst,frame,src- > prtcision.maxj>recision); 
for (channel =0; channel < (src- > type= =MONO?l :3);channel+ +) 



oct src = src- > trans. wavelet.space[channel = =0?0:1], 
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oct dsi=dst-> trans, wavelet, space [channel = =0?0:1], 
s ize [ 2 ] = { S ize( dst , c hannel . 0) . S izc( dst . channel , 1 )} ; 

if (oct_src! = oct_dst) 
Convoive(dst- > data [channel] [frame], Ctrl- > dirn,size,oct_src,oct_dst): 

} 

ChangePrecision(dst,dst,frarne.max_precision,dst- > precision); 

SaveFrame(dst,frarae); 

FrteFrame(d$t,frame); 

FrecFrame(src , frame) ; 

} 

if (sre- > trans . wave let . space [0] = =0 && sre- > trans, wavelet. spaccfl] = =0) 
sre- > trans . type = TRANS_None ; 

if (dst- > trans.wavelet.space[0] = =0 && dst- > trans. wavelet.spacc[l] = =0) { 

dst- > trans . type = TRANS_None; 

if (dst- > disk) SavcHcader(dst); 

} 

dst- > next = global- > videos; 
global- > videos = dst; 

} 

void Transrype(w, closure, cal]_data) 

Widget w; 

caddrj closure, calljiata; 

{ 

Video vid=(Video)closure; 



if (vid-> trans. wavelet. space[0] = =0 && vid-> trans. wavelet. space[l]-=0) 
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vid- > trans. type = TRANS _None; 



void BaichTransCirl(w t closure,calMau) 



Widget 



w; 



caddx t 



closure, calljiata; 



{ 



TransCtrl Ctrl » (TransCtrl)closure; 

if (Ctrl- >src== NULL) Ctrl- >src = FindVideo(ctrl- > srcjiame, global- > videos); 
if (Ctrl- > sre- > trans. type = =TRANSJWave) 
ctrl- > d in) = Ctrl- > sre- > trans. wavelet. dim; 
Trans f onnC trl( w , closure , calljiata) ; 



TransCtrl ctrl = (TransCul)MALLOC(si2eof(TransCtrlRcc)); 

strcpy(ctrl- > src_name t name); 
strq>y(ctrl- > name, name); 
ctrl- > dim = False; 
Dprintf( w Transfonn\n"); 
return(ctrl); 



TransCtrl 



InitTransCtrl(name) 



String name; 



#define TRANS JCONS 16 
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void Transform(w.closure,caJl_data) 

Widget w; 

caddr t closure, call_data; 

{ 

Video video =(Video)closure; 

TransCtrl Ctrl = InitTransCtrl (video- > name) ; 

Numlnput spacelrmut = (Numlnput)MALLOC(2ni2eof(NumlnpuiRec)), 

preclnput = (Numlnput)M ALLOC(sizeof (NumlnputRec)) ; 
Message msg = NewMessage(cxrl- > name,NAME_LEN); 
XtCallbackRec destroy_caJl[]={ 

{Free,(caddr_t)ctrl}, 

{Free . (caddr J)spacelnput} , 

{Free . (caddr_t)prcclnput} , 

{CloseMessage,(caddrj)msg}. 

{NULL.NULL}, 

}; 

Widget parent =FindWidgct("frm_transforra" ,XtParent(w)), 

shell = ShellWidget( ,, trarisform",pajent,SW_below,NULL.destroy_cail). 

form = Format Widget(" transform" .shell), 
widgetslTRANSJCONS]; 

Formltem itemsQ»{ 

{ " trans_cancel " , "cancel " ,0,0,FW_icon,NULL} , 
{ "trans_confinn" /confirm" , 1 ,0,FW_icon,NULL} , 
{"trans_title", "Transform a video",2,0,FWJabel,NUIi}, 
{ "trans_vid_lab" , "Video Name: " ,0,3,FW_label,NULL} , 
{ - trans_video" ,NULL,4,3 ,FW _text,(String)msg} . 

{ "transjiirnjab" , 'Direction: " ,0,4,FWJabel,NULL} , 
{••tram_dirn".NUU-,4,4,FW_yn,(String)&ctrl- > dim}, 
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{ "trans_bits_int" ,NULL.0,6.FW_imeger,(Sirijig)precInput} , 
{ "trans_bits_dovm" .NULL,4.6,FW_down,(Smng)precInput} . 
{"tjans_biu_up",NULL.9,6,FW - up,(String)precInput}, 

{ B tIans_spcO_int^NUU-.0.8.FW_integer,(St^ing)&spaceInpullO]} , 
{ "trans_spcO _down" .NULL,4.8.FW_down.(String)&spactlnput[0] } , 
{ " trans_spcO_up " , NULL, 12,8 ,FW_up , (String)&spaceInpmIO] } , 
{ " trans_spcl_int" ,NULL,0, 1 1 ,FW_toteger, (String)&spacclnpw[ 1] } , 
{"trans_spcl_down",NULL,4,l l,FW_down,(String)&spaceInput{ 1]} , 

{ " trans_spcl_up " .NULL, 15,1 1 ,FW_up,(String)&spaceInput[ 1] } , 

}; 

XtCaJlbackRec caJlbacksQ = { 
{Destroy , (caddr_t)shell} , 
{NULL.NULL}, 
{TransfonnCtrl,(caddr_t)ctrl}, 
{Destroy , (caddx_t)shell} , 
{NULL.NULL}, 

{Change YN,(caddr_t)&c:rl- > dim} , {NULL, NULL), 
{NumIncDec,(caddr_t)preclnput}, {NULL.NULL}, 
{NumIncDec,(caddrj)precInput}, {NULL.NULL}, 
{NumlncDec,(caddrj)&spaceIiiput[01}, {NULL.NULL}, 
{NumIncDec,(caddr_t)&spaccInput[01}, {NULL.NULL}, 
{NumIncDec,(caddrj)&spaceInp«[l]}. {NULL.NULL}, 
{NumIncDec,(caddrj)&spaceInput[l]}. {NULL.NULL}, 

}; 

Dprintf ("Transfonnto*) ; 

msg->rows=l; msg- > cols = N AME_LEN; 

Ctrl- > sic = video; 

if (video- > trans. type = = TRANS JWave) { 

Ctrl- > space(0] = video- > trans, wavelet, space [0]; 
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Ctrl- > spaccfl] = video- > trans. waveiet.space[l]; 
Ctrl- > dim = video- > trans, wavelet, dim: 
} else { 

Ctrl- > space [0]=0; ctrl->space[l]=0; 
Ctrl- >dirn= False; 

} 

Ctrl- > precision = video- > precision; 

spaceInput[0].format = video->rypc==YUV?*Y-Space: %d":"Space: %d"; 

spacelnput[0].raax= 100; 

spacelnput(0].min=0; 

spacelnput[0]. value « &ctrl- > space[0] ; 

if (video- > type = = YUV) { 

spaceInputll].fonnat="UV-Space: %d'; 
spacelnput[ 1 ] .max = 1 00; 
spacelnput[l].min=0; 
spacelnput[l].value=&ctrl- > space[l]; 

} 

preclnput- > format « "Precision: %d"; 

preclnput- > max =16; 

preclnput- > min=0; 

preclnput- > value = &ctrl- > precision; 

FillForm(fonn,TRANSJCONS-(video- > type = =YUV?0:3) f items, widgets, callbacks); 
if (video- > trans. type = = TRANS JWave) XtSetSensitive(widgetsI6],False); 
XtPopup(sbeU.XtGrabExclusive); 
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Update Image, Info and InfoText from positional information 

•/ 

^include ./include/xwave.b" 

^include < varargs.h > 

extern int CompositePixel(); 

extern int DitherO; 

extern shon RoundO; 

extern int ReMapO; 

extern Palette FindPaktteO; 

char *ResizeData(size) 
int size; 

{ 

static char *data-NULL; 
static int data_sizc = 0; 

if (si2e!=data_size) { 

Dprinrf("New frame memoryVn"); 
if (data! = NULL) XtFree(data); 
data = (char *)MALLOC(size); 
data_size = size; 

} 

rerurn(data); 

} 
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Pixmap Update Lmagc(franic) 
Frame frame; 

{ 

int x. y. i; 

Display *dpy = XtDisplay(global- > tople vel) ; 
void CvtlndexO, UpdatePointO; 

Palene pal = FindPalene(global- > palettes, frame- > palette); 
Video vid=fraine-> video; 

int scrn=XDefaultScreen(dpy), depth=DisplayPlanes<dpy,scrn). 

sizc[2]« {Size<vid,frame- > cbannel,0),Size(vid,fraxne- > channeU)}, 
img size[2] = {size[0] < < frame- > zoom.size[l] < < frame- > zoom}, 
bpl=(img_size[0]Mepth+7)/8, new_size = img_size [ 1 ] •bpl, 
space = vid- > trans . wavelet. spacc[vid- > type - - YUV && 
frame- > channel! =0 &A frame- > channel! =3? 1:0]; 

char •data=ResizeData(new_size); 

Xlmage 

•image =XCrcatelmage(dpy, global- > visinfo- > visuaJ,depth.ZPixmap,0.data,img_size(0],i 

mg_size[l],8,bpl); 
Pixmap 

pixmap=XCnatePixnup(dpy,DefaultRootW^ 
Dprintf("UpdateImage\n"); 

if (global- > levels = =2 && frame- > channel ==3) frame- > channel =0; 
for(y=0;y<size[l];y++) for(x=0;x<size[0];x++) { 
int data_x=x, data_y»y, offx, off_y, oct; 

if (vid- > trans. type = =TRANS_Wave) 
CvUndex(x,y,size[0],size[l],space,&data_x,&data_y,&oa); 

for(off_x=0;off_x < 1< < frame- > zoom;off_x + +) 

for(off_y =0;off_y < 1< < frame- > zoom;off j + +) { 
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ini img_x=off_x+(x < < frame- > zoom), 
i m gj'=off_y+(y< < frame- > zoom), 

pu=CompositePixel(frame,daia_x,daiajr,iing_x,img_y); 



XPutPixel(image,img.x.img_y ,ReMap(pix,global- > levds.pal)); 

} 

} 

XPutlniage(dpy,pixniap,DefaultW^^ 

if (frame- > point_switch« -True) UpdattPoim(dpy,frame,pixmap); 

XtFree(image); 
return(pixmap); 

} 

void CviIiidex(xj,max_x,max_ < y,oct,ret_x,ret_y,ret_oct) 



x, y, max_x, max_y, oct, *Tet_x, letjr, •moct; 



Boolean bgx=x> =(max_x> > 1), hgy=y> «(maxjr> > 1); 

*rctji-hgx?x-(maxx> >l):x; 
*Tct_y=hgy?y-(max_y> > l):y; 
if (!hgx Sl& !hgy && oct> 1) { 

CvtIndex(*Ttt_x.*rtt j,m*x_x> > l,max_y> > l t oct-l,retjt^tjr,m_oct); 
*ret_x= *ret_x<<l; 
*mj ea •tetjr< <l; 
»Tet_oct+=l; 
}else{ 
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•rci_x=(Tel_x< < l) + hgx; 
'nx_y-(*mj< < l)+hgy; 
•ret_oct = bgx 1 1 hgy?0:l; 



void Updatclnfo(frame) 



Frame frame; 



Message msg = frame- > msg; 
Video vid = frame- > video; 

im *locn= frame- > point- > location, posn[2] « {locn[0],locn[lj} , 
channel = 3 = = frame- > channcl?0: frame- > c hann e l . 

width =Size(vid,channel,0); 

short •data=vid-><iata[channel][frame->frame]; 



msg- > info. ptrlOJe'VO*; 

msg- > info.lcngth»0; 

if (vid- > type - = YUV &A channel! =0) { 

posn[0] =posn(0] > > vid- > UVsample[0); 

posn[l] =posn[l] > > vid- > UVsample[l]; 

} 

if (vid- > trans, type !=TRANS_Wave) 

Mprintf(msg f "Point : x » %03d y - %03d t - %03d 
c= %4d' ,locn[0],locn[l],frame- > frame* vid- > stan.data[posn[0] +Size(vid,channel,0)*po 

sn[l]]); 

else { 

int octs = vid- > trans. wavelet. spacc[vid- > type = = YUV &&. 
channel! =0? 1:0], 

X, Y, oct, sub, 
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blkDC[2] = {(posn[0]> >octs)&-2,(posn[l]> >octs)&-2}, 

offDC(2] = {(posn(0]> >octs)&l,(posn(l]> >ocis)&l}; 



MpriDtf(msg, "Point : f = %03d x= %03d 
y = %03d\n" .frame- > frame + vid- > sian,locn[0] ,locn(l]); 

Mprintf(msg,"Low pass: x = %03d y=%03d\n",blkDC[0],blkDC[l]); 

for(Y=0;Y<2;Y++){ 

for(X=0;X<2;X++) 

Mprimf(msg/ %4d%c\data[A^ 
DC[0]^Y==offDC[l]? , »V-); 

Mpxintf(msg,"\n"); 

} 

for(oct = octs ;oct > 0;oct-) { 

ini blkl2] = {(posn[0] > > oct)&-2,(posn[l] > > oct)&-2), 

offl2] = {(posn[0] > > oct)&l . (posnl 1] > > oct)& 1 } ; 

Mprintf(msg,"Oct : %d\n",oct); 

for(Y-0;Y<2;Y++){ 

for(sub=l;sub<4;sub++) { 
foi(X=0;X<2;X++) { 

Mprmrf(msg," %4d%c\data[Access(bIk[0] +X,blk[l] + Y,oct-l ,sub,width)),X= = offlO] 
&&Y==offl^? , * , : ,, ); 

} 

if (sub < 3) Mprintf (msg, " "); 

} 

if (oct! =0 1 1 Y==0) Mprimf(msg, "\n"); 

} 

} 

} 
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Mflush(msg); 

} 

/* Function Name: CrossHair- 

* Descripiion: Draws cross-hair on pixmap 
Arguments: dpy - Xserver display 

* pixmap - pixmap to draw on 

gc - GC to draw with 

x_off, y_off - offset into pixmap 

* width, height - size of box containing cross-hair 

x t y - coordinates within box 

* zoom - scaling factor 

* Returns: alters pixmap. 
•/ 

void CrossHair(dpy ) pixmap t gc f x - off t y - off,width,height f x,y f zoom) 

Display *dpy; 
Pixmap pixmap; 
GC gc; 

int x_off, y_off, width, height, x f y f zoom; 

{ 

int xtra = Shift( 1 ,zoom); 

x_off=Shift(x_off t zoom); 
y_off = Shift(y_off .zoom); 
width = Shift(width f zoom); 
height = Shiftfheight, zoom); 
x=Shift(x,zoom); 
y=Shift(y,zoom); 
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XFillRccungle(dpy.pixmap,gc.x-(-x_off+xtra/2,y_off.l.y):/* Nonh hair •/ 
XFillRcciangle(dpy,pixmap.gc.x_off,y+y_off+xtra/2.x,l);/' West hair */ 
XFtflRccianglc(dpy .pixmap, gc.x + x_off + xtra/2,y + y_off + xtra. 1 ,height-y-xtra); /' 
South hair •/ 

XFillRccungle(dpy .pixmap ,gc ,x + x_off + xtra ,y + y_off + xtra/2, width-x- 1.1);/* 
East hair */ 
} 

/• Function Name: UpdatePoint 

• Description: Draws cross-hair on image at frame- > location 

• Arguments: dpy - X server display 

• frame - Frame supplying drawing parameters 

• pixmap - X pixmap to draw on 

• Returns: alters pixmap. 



void UpdatePoint(dpy,frame,pixmap) 

Display *dpy; 
Frame frame; 
Pixmap pixmap; 



unsigned long gemask; 
XGCVahies gcvals; 
GC gc; 

Video vid= frame- > video; 

int posn[2] = {frame- > point- > locarion[0] .frame- > point- > location[l]}, 
channel =3= = frame- > channel?0: frame- > channel; 

gcvals .function - GXequiv; 
gemask = GCFunction; 
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gcvals. fore ground = 127; 
gcmask-gcmask| JGCForegTOund; 
gc = XCreateGC(dpy ,pixniap,gcmask.&gcvals); 
if (vid- > type == YUV && channel! =0) { 

posn[0] =posn[0] > > vid- > UVsample(0]; 

posn[l]=posn[l]> > vid->UVsample(l]; 

} 

if (vid- > trans.rype! =TRANS_Wave) { 

CrossHair(dpy,pbunap,gc,0,0,Size(vid.chaimel,0),Si2e(vid.chajinel,l),posn[0] 1 posn[l],fra 

me- > zoom); 
} else { 

int octs = vid- > trans. wavc]et.space[vid- > type = = YUV && 
channel! =0?1:0], oct, 

size[2] = {Size(vid t channel,0),Size(vid.channel,l)}; 

CrossHair(dpy .pbunap ,gc .O.O.sizcf 0] ,size[ 1 ] ,posn(0] ,posn[ 1 ] , frame- > zoom-octs); 
for(oct=l;oct< =octs;oct++) { 

CrossHair(dpy .pixmap ,gc , size[0] ,0. size (0] ,size( 1 ] ,posn(0] ,posn[ 1 ] .frame- > zoom-oct); 

CrossHair(dpy I pixinap t gc,0.size(l],sizeIO],size[l] > pc«n[0],posTi[l],frame->zt)om-^ 

CrossHair(dpy,pixmap,gc,siz£[0],sizeU],size^ 

); 

} 

} 

XFreeGC(dpy,gcj; 

} 
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source/Video2.c 



Video callback routines for Listing, Loading 



# include 
^include 

# include 
^include 
^include 
extern void 
extern void 



" . ./include/xwave.h" 

" . ./include/ImageHeader.h' 

" . ./include/DTheader.h" 

"Video.h* 
<sys/time.h> 

EraseFrameO; 
CvtlndexO; 



void SortList(list,no) 



String HstQ; 
int no; 

{ 

int i, j. k; 



if (no > 1) for(i= 1 ;i < no;i+ +) for(j=0;j < ij+ +) { 
k=0; 

while(ust[i][k] = =listrj][k] && list[i][k]! = 'NO* && list[j]rk]! = *\0') k+ + ; 

if(list[i]Ik]<listU]M){ 
String spare = listlij; 

list[i]=list[fl; 
listfj]= spare; 

} 
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} 



} 



String *ReadDireciory(dir_paih.cxtcnsion) 



Siring dirjwth, extension; 



D1R •dirp, •opendir(); 
struct dirent *dp, *readdir(); 
static String •fileList=NULL. file; 
int count =0, i; 
char path[STRLEN]; 

Dprintf("ReadDirectory for %s exiension\n", extension); 

if (fileList!=NULL) { 

for(i =0;NULL! = fikListfi] ;i + + ) free(fileList[i]); 

frec(fileList); 

} 

fileList= (String •JMAlXOasizeotfString »)»300); 
sprintf(path, " %s%s\0".global- > horoe,dirj>ath); 
dirp * opendir(path); 

for (dp = rcaddir(dirp);dp!=NULL &&. count < 299 ;dp=readdir(dirp)) { 
int length = strlen(dp- > d_name); 



if (length > =strlen(extension)) 

if (!strcmp(dp- > d_name+length-strlen(exiension), extension)) { 
Dprintf("Found %s in dir\n\dp->d_narae); 
fileList(count] = (char *)MALLOC(length+ 1); 
strncpy(fileList[count] ,dp- > d_name,length-strlen(extension)); 

coum+ = l; 
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} 

filelist[coum]=NULL; 
SonList(filcList.count); 

closcdir(diip); 
return(fileList); 

} 

int Shift(value. shift) 
int value, shift; 

{ 

if (shift= =0) return value; 

else if (shift <0) return(value > > -shift); 

else retum(value< < shift); 

} 

int Size(video,channel,dimension) 
Video video; 

int channel, dimension; 

{ 

if (video- > type = = YUV &Jc dimension! =2 && channel! =0 && channel! «=3) 
return(video- > sizeldimension] > > video- >UVsample [dimension]); 
else return(video->size[dimension]); 

} 

int Address2(video,channel,x,y) 

Video video; 

int channel, x, y; 



Si IRCT1TIJTF SHEET (RULE 261 



WO 94/23385 



PCT/GB94/00677 



• 370 - 

{ 

if (video- > type ==YUV &8c channel! =0 && channel! = 3) 
returaU + Size(video.channel.O)*y); 

else retura(x + video->size(0)»y); 

} 

int Address(video.channel,x,y) 

Video video; 

int channel, x, y; 

{ 

if (video- > type = = YUV && channel! =0 &.& channel! = 3) 
retuni((x> > video- >UVsample[0])+Si2e(video,channel,0)*(y> > video- >UVsample[l]) 

); 

else retura(x+video->size(0] s y); 

} 

String *VideoListO 
{ 

Dprintf("VideoList\n"); 
retura(ReadDirectory (VID_DIR, VID_EXD) ; 

} 

String "KJicsListO 
{ 

Dprintf("KlicsList\n'); 

retuin(ReadDirectoiy(KLICS_DIR f KLICS_EXT)); 

} 
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String •KlicsListSAO 
{ 

DprintfrKlicsLisiSA\n"); 

retum(ReadDirectory(KUCSJA_DIR,JaJCS^SA_EXT)); 

} 

String *VideoCurrentLi$t() 



{ 



static String videoList[3001; 
Video video= global- > videos; 
int count =0; 

DprintfCVideoCurrcniListXn"); 

while (video! - NULL) { 

if (count = = 300) DprintfCVideoCurrentList: static size exceeded\n"); 

videoList[count] = video- > name; 
video = video- > next; 
count+ = 1; 

} 

videoList[count] - NULL; 
SonList(vidcoList,count); 
retuni(videoList); 



} 



String "Video YUVListO 
{ 

static String videoList[300]; 
Video video = global- > videos; 
int count =0; 
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Dprintf( ' VideoCurrentList\n" ) ; 
while (video! - NULL) { 

if (count==300) Dprimff VideoYUVList: static size exceeded\n"); 

if (video- > type = =YUV) videoList(coum+ +] = video- > name: 

video=video->next; 

} 

videoLisi(count) = NULL; 
SortList(videoList,count); 
retum(videoList); 

) 

Suing 'VideoDropListO 



static String videoLUt[300]; 
Video video « global- > videos; 
int count =0; 
Boolean VideoHasFrameQ; 



Dp^intf("VideoD^)pList\n ,, ); 
while (video! = NULL) { 

if (False- = VideoHasFrame(video,global-> frames)) { 

videoListfcount] = video- > name; 

count + = 1; 

}; 

video = video- > next; 

} 

videoList[coum] =NULL; 
SonList(videoLi5t t count); 
retum(videoList); 
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Boolean VideoHasFrame( video, frame) 

Video video; 
Frame frame; 

{ 

if (frame* =NULL) rcturn(False); 

else if (frame- > video = = video) retura(True); 

else rcrum(VideoHasFrame(video. frame- > next)); 

} 

void VideoLoad(w,closure,call_data) 

Widget w; 

caddr_t closure, calljiata; 

{ 

Video vid = (Video)MALLOC(sizcof(VideoRec)); 
XawListRetumStruct * name = (XawListRetumStruct *)call_daia; 
int frame, channel; 

Dprintf("VideoLoad %s\n\name- > string); 
strcpy(vid- > name, name- > string); 
strcpy(vid- > files, name- > string); 
vid- > next=global- > videos; 
globaJ-> videos ■ vid; 
vid- > rate =30; 

Parse<VID_DIR.name- > string, VIDEXT); 

for (channel «0;channel < (vid- > type= =MONO?i:3);channel+ +) 

vid->datatchannel]=(shon **)MALLOC(sizeof(short *)*vid->size[2]); 
if (!vid- > disk) for(frame=0;rrame < vid- > size[2];frame+ +) 
GetFrame(vid.frame); 
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Dprimff VideoLoad tenninated\n"); 



if (global- > batch = = NULL) InjtFrame(w.closure.calljiata); 



Video video; 

XawListRerumStruct *name = (XawLisiReruniSmict *)call_data; 
int frame; 

video = FindVideo(name- > string .global- > videos); 

if (video- > files[0] * - *\0 f ) strcpy(video- > files,name- > string); 

SaveHeadcr( video); 

for (frame =0;frame< video- >size[2];ftame++) { 
Boolean disk = video- > disk; 

GetFrame(video,£rame); 
video- > disk = True; 
SaveFrame(video,frame); 
video- > disk -disk; 
FreeFrame(video t frame); 



void VideoSave(w,closure,caIljlata) 



Widget 



caddr t 



closure, calljiata; 




void 



VideoDTSave(w 1 closure t call_data) 



Widget 



w; 
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caddr t closure, call_data; 

{ 

Video video; 

FILE *fp, •fopen(); 

XawListReturoStruct *rame=(XawListReruniSrxuct *)call_data; 
char file_name[STRLEN], whole_frame[512][512]; 
int frame, i. x, y, offset[2]; 
DTbeader 

header={TT-IMAGE\l,4,l,2,"-,"-,l,{0,0,4,0},l,l,0,l.{4,3},8.1.{0.2},{0,2}.{0,2}.{0 
,2},"","xwave generated image",""}; 

Dprinrf("VideoDTSave %s\n",name-> string); 
video = Find Video(name- > string.global- > videos); 

sprinrf(iUe_name," %s%s/%s/%s %s\0", global- > home ,MAGE_DIR, video- > path,video- 

> files, ".img"); 

offset[0] =(512-video- > size[0])/2; 
offset[l] =(512-video- > size(l])/2; 
offset[0] =offset(0] < 0?0:offset[0]; 
offset! 1 ] = offset! 1 ] < 0?0: off set( 1 ] ; 
fp=fopen(file_name,"w"); 
fwrite(&header, 1 ,si2cof(DTheader).fp); 
GetFrame(video.O); 

for(y=0;y<512;y++) for<x=0;x<512;x++) { 
int X, Y, oct; 

if (y< offset! 1] || x<offset[0] || y-ofTset!l]> = video- >size!l] |j 
x-offsetIO] > = video- > size[0]) whole_frame[yHx] = 0; 
else { 

if (video- > trans. type = =TRANS_Wave) { 
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CviIndex(x-offset[0],y-offset[l], video- > si2e[0], video- > size(l], video- > trans. wavelet. spa 
ce[0],&X.&Y.&oci); 

whole frame [y] [x] = l 28 + Round( video- >^ 
- > trans, wavelet. space(0]?l :4), video- > precision); 

}clsc{ 

X = x-offset[0]; Y=y-offset[l]; 

whole_framely]lx] = 128 + Round(video- > data[0][0](Y»video- > size[0] + X], video- > preci 
sion); 

} 

} 

} 

FreeFrame( video, 0) ; 

fwrite( whole_frame 1 1 ,5 1 2*5 12 ,fp); 

fclose(fjp); 

} 

void VideoXimSave(w t closuit,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

Video video; 

FILE 'fp, *fopenO; 

XawListReturaStruct *name = (Xa wListReturnStruct *)call_data; 
char file_namc[STRLEN], *whole_frame; 
int frame, channel, i, x t y; 
ImageHeader header; 

Dprintf("VideoXimSavc %s\n w ,name-> string); 
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video = Find Video(naine* > string.global- > videos); 

whole_fnune = (char •)MALLOC(video- > sizefO]* video- > sizefl]); 

if (video- > filesfO] = = '\0') strcpy(video- > files, name- > siring); 

sprimf(file_najne/7c$%s/%$/^ 
> files, n .xinf); 

fp = fopen(file_name f " w "); 

sprintf(headerTile_venion/%8d* t IMAGE_VERSION); 
sprintf(header.beader_size, " %8dM024); 
sprintf(header. image jvidth/%8d Video- > sizefO]); 
sprintf (header . image_he ight, " % 8d B , video- > size [ 1 ]) ; 
sprintf(header.nura_colors, " %8d" t 256); 

sprintf^eader.num^channels/ %8d" .video- > type= =MONO?l:3); 
sprintf(header.numj5icturts, " %8d" .video- > size[2]); 
sprintf (header. alpha_channcl t " %4d" ,0); 
sprintf (header, runlength, " %4d\0); 
sprintf (header.amhor/%48sVxwave"); 
sprintf (header.date, " 9632s", "Now"); 
sprintf(beader.prograin f " % 1 6s * t "xwave"); 
for(i«0;i<256;i++) { 

headcr.c_map[i][0]=(unsigned char)i; 

header. c_map[i][l]= (unsigned char)i; 

head e r . c_map [ i] [2] = (uns igned char)i; 

) 

fwrite(&beader, l,sizeof(ImageHeader),fp); 

for (frame = video- > sun; frame < video- > start+ video- > size[2J;frame+ +) { 
GeiFrame(video,rrame-video- > start); 

for(channel»0;channel < (video- >typc= =MONO?l :3);chanuel+ +) { 
for(x =0;x < video- > size[0];x + +) 

for(y =0;y < video- > size[l];y + +) 

whole_frame(x + video- > size[0]*y] = itc(video- > daia[channeJ][frame-video- > stan][Addre 
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ss(video. channel. x,y)] > > video- > precision); 

fu'riieCwhole^frajne.sueofCcharJ^ideo^sizefOJ'video- >size[l],fp); 

} 

FreeFrajne(video, frame-video- > start); 

} 

fclose(fp); 

XtFree(wholeJrame); 

} 

void VideoMacSave(w,closure.call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Video video; 

FILE *fp t *fopcnO; 

XawListRemraStmct *name = (XawListReturnS tract *)call_data; 
char filejiamefSTRLEN], *whole_frame; 
int frame, channel, i, x, y; 

DprintfCVideoMacSave %s\n ,, ,name-> string); 

video = Find Video(name- > string, global- > videos); 

if (video > filesfO] = = *\(T) sncpy(video- > files, name- > string); 

sprintf(ftfe_name/%s%s/%s/56$ 
> files/. mac"); 

fp = fopen(filejoame f " w"); 

whole Jrame = (char *)MALLOC(video- > size[l]*video- > size[0]»3); 
for(frame=0;fraine< video- >size[2];fraine++) { 
int size = video- > size[0)*video- > size[ 1] ; 
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GetFrame(video.irame); 

fortchannel = 0;channel < (video- > type = = MONO? 1 :3):channel + + ) 
for(x = 0;x < video- > size(0];x + + ) 

for(y = 0;y < video- > size[ 1 J ;y + + ) 

whole frame((x+ video- >si2e{0]*y)*3+channel]=itc(video->daia[channel][franie](Addre 

ss(video.channel,x,y)] > > video- > precision); 

fwriie(whole_frame,l,3 s si2e,fp); 
FreeFrame(video, frame) ; 

} 

fclose(fp); 

XtFree(whole_frame); 

} 

void VideoHexSave(w,closure,call_data) 

Widget w; 

caddr t closure, caJl_data; 



Video video; 

FILE *rp, *fopenO; 

XawListReturnSmict *name = (XawListRcturnStruct *)call_data; 
char file_nanie[STRLEN]; 
im rrame, channel, i; 

DprintffVideoHexSave %sro\iiame- > string); 

video = FindVideo(name- > string, global- > videos); 

if (video- > files[0] = = ^0*) strcpy(video- > files.nanie- > string); 

sprintf(file_name, " %s %sl %sl %s %s\0" .global- > borne ,IMAGE_DIR,video- > path, video- 
> files, ".h"); 
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fp * fopen( file_name . " w" ) ; 

for(frame=0;frame < (video- > size[2] > 2?2: video- > size[2]);frame+ +) { 
int size = video- > size( 1 ] 'video- > size[0]; 

GetFrame(video, frame); 

fprintf(fp."char 

*s%dr%dl-{\n\na«->sir^^ 

for(i=0;i<size;i + + ) 



fprintf(fp."0x%02x, %c\(vidco- > datalO][frame][i] > > video- > precision)* 128.i*20 - - 
19?'\n':' '); 

fprintf(fp,"\n};\n"); 
FreeFrame(video, frame); 

} 

fclose(fp); 

} 



^define AB_W1DTH 1440 
/fdefme AB_HHGHT 486 



void VideoAbekusSave(w.closure.call_dau) 

Widget w; 

caddr t closure, call_data; 



AbekusCtrl ctrl=(AbekusCtrl)closure; 
FILE *fp, *fopenO; 

char fik_iamc[ STOLEN], *data«(chax 
•)MALL0C(AB_W1DTH*AB_HE1GHT), zero=itc(0); 
int frame, channel, i, x, y, lengtb=0; 
Video vids[4]; 
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Dprintf("VideoAbekusSave\n*); 
for(i=0;i<4;i + +) 

if (Ctrl- > names [i]!=NULL) { 

vids[i] =FindVideo(ctrl- > names[i] .global- > videos); 
length = length > vids[i]- > size(2]?length:vids[i]- > size[2]; 
} else vids[i]=NULL; 
for(fTame=0;frame<length;fTame++) { 

sprintf(file_name," %d.yuv\0", frame + 1); 
fp = fopen(file_name, ' w"); 
for(i=0;i<4;i+ +) GetFrame(vids[i] .frame); 
for(y = 0;y < AB_HEIGHT;y + +) 

for(x=0;x<AB_WIDTH;x++) { 
ini 

i= (x < AB_ WIDTH/270: l)+(y < AB_HHGHT/270:2), 

Y=y< AB_HDGHT/2?y:y-AB_HEIGHT/2, 
X = (x < AB_WTDTH/2?x:x.AB_WIDTH/2)/2, 
channel = ((x&l) « 1)?0:((X&1) « =0)?1 :2; 

if (vidsH]- > type = = MONO && channel! =0 1 1 
X> =vids[i]->size[0] II Y>=vids[i]->size[l])data[x+y*AB_WIDTH]=2ero; 

else 

daxa[x +y*AB_W!DTH] = itc(vids[ij- > <lata(channel][rr^e][Address(vids[i],channel t X,Y)] 
> >vids[i]-> precision); 

} 

for(i=0;i<4;i++) { 

FreeFrame(vids [i] , frame); 
EraseFrame(vids[i] .frame); 

} 

fwriie(data, 1 ,AB_WIDTH ♦ AB_HHGHT,fp); 
fclose(fp); 

} 

} 
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void VideoDrojKw, closure, call_data) 

Widget w; 

caddr t closure, call_data; 

{ 

Video * videos = &global- > videos, video; 
XawLisiRetumStruct *narae = (XawLisiReturnSmict *)call_data; 
int channel, frame; 

DprintffVideoDrop %s\n\name-> string); 
video = Find Video(name- > string, global- > videos); 

while (*videos!= video && * videos != NULL) videos =&((* videos)- > next); 
if (* videos! = NULL) { 

* videos = ( * videos)- > next; 

for(channel=0;channel < (video- > type= =MONO?l :3);channel + +) 
if (video- > data [channel] ! = NULL) { 

f or(frame = 0; frame < video- > size [2] ; frame + + ) 
if (video- >data[cbannel][frame]!== NULL) 
XtFree(video- > data[channel] [frame]); 

XtFree(video- > data [channel]); 

} 

XtFree(video); 

} 

} 

/* Obsolete 

void VideoDiff(w,closure,call_data) 

Widget w; 

caddr j closure, call_data; 

{ 
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XawListReturaStruct *nzme = (XawLisiRcturoStruct *)call data; 

Video src = FiDdVideo(name-> string ,global-> videos), dst=CopyHeader(src); 
ini frame, channel, i; 

printffVideoDiff %s\n n ,name-> string); 
sprintf(dst- > name, " %s.dif\CT,src- > name); 
for(frame=0;frame< src- >sae[2];frame++) { 

GetFrame(src, frame); 

Ne wFrame (dst , frame); 

for(channel=0;channel < (video- > type= =MONO?l :3);channe]-f +) 
for(i=0;i < src- > size[l]*src- > size[0];i+ +) 

dst- > data[channe]][frame][i] «= src- > data [channel] [frame] [i]>(frame ~ ~ 0?0:src- > data[ch 
annel][frame-l][i]); 

SaveFrame(dst t frame); 

FreeFrarae(dst f frame) ; 

if (frame>0) FreeFrame(src,frame-l); 

} 

FreeFrame(dst f src- > size[2]-l); 
dst- > next = global- > videos; 
global- > videos = dst; 

} 

*/ 

void VideoClean(w,closure,call_data) 



Widget w; 

caddr_t closure, cal)_data; 

{ 

Video *videos = &global- > videos, video; 

int channel, frame; 
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Dprinif ( " VideoClean\n " ) ; 
while(* videos! = NULL) { 
video =*videos; 

if (False = =VideoHasFrame(video f global- > frames)) { 
DprintfC Erasing video: %s\n\video->name); 

for(channel =0;channel < (video- > rype = = MON071 :3);channel + +) 

if (video- >data[channel]! = NULL) { 

for(frame=0;frame < video- > si2e[2];frame+ +) 
if (video- >data[channel][frame]!== NULL) 

XiFree(video- > data[channel] [frame]); 

XtFree(video- > data [channel]); 

} 

♦videos = video- > next; 
XtFree(video); 
} else videos = &(*videos)-> next; 

} 

} 

typedef struct { 

Frame frame; 

XtlntervaUd id; 

unsigned long interval; 

long msec, shown, average; 

Pixmap *movie; 

int fno, old_fho; 
} Movie ArgRec, *MovieArg; 

void Projector(client_data,id) 

XtPointer clienijiata; 
Xtlmervalld *id; 
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MovieArg movieArg = (MovieArg)client_data; 

Display *dpy = XtDisplay(global- > toplevel); 

struct timeval tp; 

struct timezone tzp; 

long new_msec; 

int scm=XDefauItScreen(dpy); 



movieArg- > id = XtAppAddTimeOut(global- > app_con, movieArg- > imervaJ.Projector.mo 

vieArg); 

gctumeofday(«fetp,&tzp); 
ncw_mscc=tp.rv_sec*1000+tp.rv_usec/1000; 

if (movieArg- > msec! =0) { 

movieArg- > averages (movieArg- > average*movieArg- > shown +new_msec-movie Arg- 

> msec)/(movieArg- > shown+ 1); 

movieArg- > shown+ + ; 

} 

movieArg- > msec = new jnsec; 

XCopyArea(dpy .movieArg- > movie[movieArg- > fno],XtWindow(movieArg- > frame- > i 
mage_widget),DefaultGC(dpy,scrn),0,0,movieArg- > frame- > video- > size [0], movie Arg- 

> frame- > video- > size[l],0,0); 

movieArg- > fno = movieArg- > fno == movie Arg- > frame- > video- > sizeI2]- 1 ?0:movieAr 

g->fno+l; 

} 

void StopMovie(w, closure , call jiata) 
Widget w; 
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caddr t closure, call_data; 
{ 

MovieArg movieArg =(MovieArg)dosure; 
Display •dpy = XtDisplay(global->toplevel); 

int i; 

Arg args[l]; 

XtRcmoveTimeOut(movicArg- > id); 

Dprimf("Movie showed %d frames at an average of %f 
fps\n" ,movieArg- > shown, 1000.0/(float)movieArg- > average); 

for(i = 0;i < movieArg- > frame- > video- > size[2] ;i + +) 
XFreePixmap(dpy .movieArg- > movie[i]); 

XtFree(movieArg- > movie); 

XtSetArg(axgsIOJ,XtNbitmap,UpdateImage<movieArg- > frame)); 
XtSetVaJues(movieArg- > frame- > image_widget,args,ONE); 
XSynchroni2e(dpy .False) ; 

} 

^define MOVIE JCONS 1 
void Movie(w,closure.call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Video video = ((Frame)closure)- > video; 

MovieArg movieArg s(MovieArg)MALLOC(si2£of(MovieArgRec)); 
Widget shell = SbellWidget("movte\XtParent(w),SW_over,NULL,NULL), 
form = Format Widget("movie_form\shell), 
widgctsfMOVIEJCONS] ; 
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Display •dpy = XtDisplay(globai->toplevel); 

FormJtem iiems[] = { 

{ "movie_stop\ "stop" .0.0.FW_icon,NULL) , 

}; 

XtCallbackRec callbacksQ = { 

{ S topMovie . (caddr j)movie Arg } , 
{ Free , (caddrj)movie Arg} , 
{Destroy, (caddr j)shell}, 
{NULL,NULL}, 

}; 

int i; 

XGCValues values; 
GC gc; 

Dprinrf("Movie\n"); 

FillForm(form,MOVIEJCONS,items,widgets,callbacks); 
XtPopup(sbell,XtGrabExclusive); 

■values . foreground -255; 
values .background = 0; 

gc=XrGetGC(XtPaicnt(w),GCForegiound | GCBackgTOund.& values); 
movie Arg- > frame = (Frame)closure; 

movieArg- > movie = (Pixmap »)MAlXOC(video- > size[2]*sizeof(Pixmap)); 
movieArg- > old_fno «= movieArg- > frame- > frame; 
for(i=0;i< video- >size[2];i++) { 
char fno[STRLEN]; 

sprintf(fho,"%03d\0",i+video->start); 
movieArg- > frame- > frame =i; 
GetFrame(video,i); 

movieArg- > movie[i] = Updatelmage(movieArg- > frame); 
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XDrawlmagcString(dpy,movicArg- > movic[i],gc. video- > size[0]-50. 10.fno,3); 

XCopyArca(dpy, movieArg- > movieli].XtWindow(movieAig- > frame- > image_widget).D 
efaultGC(dpy .0),0,0,video- > size[0],video- > size[l],0.0); 

movieArg- > frame- > frame = movie Arg- > old_fno; 

FreeFrame(video,i); 

} 

XtDestroyGC(gc); 

movieArg- > fno =0; 

movieArg- > msec =0; 

movieArg- > shown - 0; 

movieArg- > average =0; 

movieArg- > interval = 1000/ video- > rate; 

movieArg- > id ■ XtAppAddTimeOut(global- > app_con.movieArg- > interval.Projector.nio 

vieArg); 

XSynchronize(dpy.True); 

} 

void Compare(w, closure. cailjiata) 

Widget w; 

caddr_t closure, call_data; 

{ 

XawListRetumStruct 'name = (XawListRerurnStruct *)call_data; 
Video sre = (Video)closure, dst = FindVideo(name- > string, global- > videos); 
int channels = sre- > type = = MONO || dst-> rypc= =MONO?l:3, channel, 
values =0, x, y, 

frames = sre- > size[2] > dst- > size[2]?dst- > size[2]:src- > size[2], 

frame; 
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double mse; 

Message msg = NewMessage(NULL.400); 
XtCallbackRec callbacks!] = { 

{CloseMessage,(caddr_t)msg}, {NULL,NULL} , 

}; 

msg- > rows = frames > 5? 10:2*framcs; msg- > cols =40; 

if (global- > batch = = NULL) 
MessageWindow(FindWidget( 0 f^m_compaJe^w),msg/Compa^e^TnJe,callbacks); 

for(frame =0;frame < frames; frame + +) { 

Boolean srcp=src- > precision > dst- > precision; 
int err_sqr=0, 

precision = srcp?src- > precision-dst- > prccision:dst- > precision-src- > precision; 

Mprinrf (msg, "Compare: %s%03d and 
%s%03d\n".src- > name.src- > sum + frame, dst- > name, dst- > start + frame); 
GctFramc(sTC. frame); 
GelFrarne(dst, frame); 

for(chajmel=0;chamiel<chaimek;channel++) { 

values + = Size(src- > size[l] > dst- > size[l]?dst:src .channel, l)*Size(src- > size[0] > dst- > s 
ize[0]?dst:src,channel,0); 

forty =0;y < Si2e(src- > sizc{l] > dst- > size{l]?dst:src,channel, l);y + +) 

for(x=0;x < Size(src- > sizelO] > dst- > sizelO]?dst:src,channel,0);x+ +) { 

int 

err=(src- > (lata[channel]Irrame][x+Si2e(src,channcl,0)*y] < < (srcp?0:precision)Mdst-> 
data[channel] [frame] [x + Size(dst,channcl,0)*y] < < (srcp?precision:0)); 

err_sqr+=eiT*err; 

} 
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} 

FreeFrame(src. frame); 
FreeFrame(dst.frame); 
mse = (double)err_sqr/(double)( values); 
Mprintffrasg," Error %d MSE %f PSNR 
%f\n".err_sqr.mse,10 , logl0(pow((pow(2.0.(double)(8 + (srcp?src->precision:dst-> precis 

ion;))-l),2.0)/mse)); 

Mflush(msg); 

} 

} 

void BatchCompare(w,cIosure.call_data) 

Widget w; 

caddrj closure, calljiata; 

{ 

String namc«(String)closure; 

closure = (caddrj)Find Video(name,global- > videos); 
Compare(w,closure,call_data); 
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source/xwave.c 



^include "../includc/xwavc.h" 

^include <Xll/Xresource.h> 

#include <X11/Intrinsic.h> 

^include <X11/Quarks.h> 



extern Palette ReOrderPaJettcsO; 
extern void Nameflutton(); 
extern void ImageNotifyO; 
extern void ParseO; 



^define IconPath "bitmaps" 

^define IconFilc "xwave. icons" 

#define CompressPath 

#define ConrpressExt ".compress" 

#define PalenePath "." 

#define PaleneExt ".pal" 



Global global; 

String ChannelNamel3][4]={ 

{ "Grayscale" ,NUIX,NUli,NULL}, 
{"Red "."Green". "Blue ", "Color"}. 

{"Y-Umiurjarux"."U-Cliroine ","V-Chrome "."Color "}. 

}; 

#define XtNdebug "debug" 
#define XlNbatch "batch" 
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static XtResource resourcesf] = { 

{XiNdebug, XtCBoolean. XiRBoolean. si2eof(Boolean), 
XtOffset(Global.debug), XtRString, "false"}. 
{XiNbatch, XtCFile. XtRString, sizeof(String). 
XtOffset(Global. batch), XtRString, NULL}, 

>: 

static XrtnOptionDescRec optionsfl = { 

{ "-debug " , " *debug " .XnnoptionNoArg, "true" } , 
{ "-batch" , ""batch" .XnnoptionSepAig.NULL} . 

}; 

static Boolean CvtStriagToPbtel20; 
#if defined (__STDC_J 

extenialref XtConvenArgRec const colorConvenArgs[2]; 
Mse 

extenialref XtConvertArgRec colorConvenAigs[2]; 
lendif 

static String fallback_resourcesQ={ 

"•copy video*Toggle*translations: ^override \\n <BtnlDown> , <BtnlUp> : 

set() notify 0", 

"*copy_video*copy*siate: true", 
NULL, 

}; 

XtActionsRec actionTableQ •= { 
{"NameBunon",NamcBunon}, 

}; 

main(argc , arg v t cn vp) 
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int argc; 

char "argyf], *envp[); 

{ 

void InitPixraapsO, InitActions(), InitMainO, lnitEnv(), IniiDither(), DispatchO; 
GlobalRec globalrec; 

global =&globalrec; 
global- > videos = NULL; 
global- > frames = NULL; 
global- > points = NULL; 
InitEnv(envp); 

global- > tople vel = XtAppInitialize(&(global- > app_con). "xwave" ,options,XiNumber(opiio 
ns) l &argc,ajgv,falIback_resources,NULL,ZERO); 

XiGeiApplicationResources(global- > toplevel,global,resources,XtNuinber(resourc€s),NUL 
L,ZERO); 

if (global- > batch! =NULL) { 

Parse(BATCH < _DIR,global- > batch,BATCH_EXT); 

if (global- > batchjist! = NULL) Dispaich(global- > batchjist); 

} 

if (global- > batch = = NULL) { 

XtAppAddActions(gJobal- > app_con,acuonTable,XtNumber(actionTable)); 

XtSetTypeConverur(XtRString,XtRPixel,CviSrjingToPUel2,colorCon 
(colorConvertAxgs),XtCacbeByDisplay,NULL); 

if (global- > debug) Dprintf( "Xwave Debugging Ourput\n"); 

InitVisuaJO; 
InitDitherO; 

IxutPixmaps(IconPath,IconFile); 
Parse(PaletiePath, "xwave",PaletteExt); 
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global- > palenes = ReOrderPalencs(global- > palenes.global- > palenes); 

lnitActions(global- > app_con); 

IniiMainO; 

XLRealize Widgei(gJobal-*> toplevel); 
XtAppMainLoop(global- > app_con); 

} 

} 

void InitEnv(envp) 
char *envpQ; 
{ 

String home = NULL, xwave=NULL; 

DpriDtfCIniiializing cnviromcnt\n"); 
while(*envp! = NULL) { 

if(!strncmp(*CDvp/HOME=" t 5)) homc = (*cnvp)+5; 

if(\strncmp(*znvp t *XWAVE=\6)) xwavc = (*envp)-f 6; 

envp-f + ; 

} 

if (xwave! = NULL) sprintf(globaJ->home/%s/ B ,xwave); 
else sprintf(global- > home/%s/xwave/ ,, t home); 

} 

#define HEIGHT 14 



void InitPixmaps(path,file) 
char *file f *path; 

{ 
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FILE "fp, *fopen(); 
Icon icons; 
char pad(l00]; 

Display "dpy = XtDisplay(global- > toplevel): 

int i, j, sink. scrn=XDefaultScrccn(dpy). depth =DisplayPlanes(dpy.scm), 

bpl = (global- > levels*depth + 7)/8; 
char data[HEIGHT'bpl]; 
Xlmage 

"image = XCreateImage(dpy .global- > visinfo-> visual,depth,ZPixmap,0.daia,global- > leve 
ls.HEIGHT,8,bpl); 

spriDtf(pad," %s%s/%s\0",global- > home,path,file); 
if (NULL == (fp=fopen(pad,V))) { 

Eprintf("Can't open file %s\n",pad); 

cxitO; 

} 

fscanf(fp, " %d\n" ,&global- > nojcons); 

global- > icons = (kon)MALLOC((l + global- > no_icons)*sizeof(IconRec)); 
for(i=0;i<globaJ->noJcons;i++) { 

global- > iconsfi]. name =(String)MALLOC( 100); 

fscanf (fp , " % s\n " .global- > icons [i] . name) ; 

spratf(pad."%s%s/%s\0",global->home,path.global->icons[i].name); 

XReadBitmapFile( 

XiDisplay(global- > toplevel), 
XDefaultRootWindow(dpy) , 

pad. 

&global- > icons[i]. width, 
&global- > iconsfl] .height, 
&global- > icons[i] .pixmap, 
&sink, 
&sink 

); 
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) 

global- > icons(global- > no_icons].name=(Stnng)MALLOC(100); 
strcpy(global-> icons(global-> no Jcons]. name, "colors'); 
global- > icons[global- > no_iconsJ. width = global- > levels; 
global- > icons[global- > nojeons] .height = HEIGHT; 
for(i =0;i < global- > levels;i+ +) 

for(j =0;j < HEIGHT;j + +) XPutPixel(image,i,j,i); 

global- > icons [global- > no icons]. pixmap=XCrcaiePixinap(dpy,XDefauliRootWindow(dp 
y),global- > levels.HEIGHT.depth); 

XPudrnage(dpy .global- > icons[global- > no_iconsJ.pixmap,DefauliGC(dpy,scrn).image,0.0 
.O.O.global- > levcls.HEIGHT); 

global- > no_icons + + ; 

XtFree(image); 

fclose(fp); 

} 



^define done (type, value) \ 

if (toVal- > addx ! = NULL) { \ 
if (toVal- > size < sizeof(type)) { \ 

toVal«>size = sizeof(type); \ 
return False; \ 

}\ 

*(type*)(toVal- > addr) - (value); \ 

} ^ 
else { \ 

static type static_val; \ 

static_vaJ = (value); \ 

toVal->addr = (XtPointer)&static_val; \ 

} \ 
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toVal->size = sizeof(rype); \ 
return True; \ 

} 

^define dist(colora.colorb) \ 

abs(colora.red-colorb.red)+abs(colora.grecn-colorb.green) + abs(colora.bluc-colorb.bluc) 

static Boolean CvtStringToPixel2(dpy, aigs, num_args, fromVal, toVal, closure_ret) 

Display* dpy; 
XnnValucPtr args; 
Cardinal *num_args; 
XnnValucPtr fromVal; 
XnnValuePtr toVal; 
XtPoimcr *closure_ret; 

{ 



String 


str = (String)fromVal->addr f 


XColor 


scrccnCoIor; 


XColor 


exactColor; 


Screen 


♦screen; 


Colonnap 


colonnap; 


Status 


status; 


String 


params[l]; 


Cardinal 


nmn_params = 1 ; 



Dprinrf("Conven string to pixel 2\n"); 
if (*num_args ! = 2) 

XtAppErTorMsg(XtDisplayToApplicaiionConiext(dpy), "wrongParametcrs". 

"cvtStringToPixel", 

"XtTooUdtError'. 
"String to pixel conversion needs screen and colonnap arguments', 
(String *)NULL, (Cardinal »)NULL); 



WO 94/23385 



PCT/GB94/0MT7 



- 398 - 

screen = "((Screen ••) args{0].addr); 
colonnap = •((Colormap •) args[l].addr); 

if (!strcmp(sir.XtDefauliBackground)) { 
*closure_ret = False; 
done(Pixel,WhiiePuelOfScreen(screen)); 

} 

if (!strcmp(str,XiDefaultForeground)) { 
*closure_ret = False; 
done(Pixel,BlackPixelOfScreen(screen)); 

} 

paiams(0]=str; 

if (0« = X?aneColor(DisplayOi3creen(screen),colorrnap,str,&screenColor)) { 

XtAppWamingMsg(XtDisplayToApplicauonConiext(dpy), "noColonnap" , 

"cvtStringToPixel", 

"XtToolkiiError", "Cannot parse color: \"%s\"", 
paiams, &num_params); 

return False; 
}else{ 

if (0==XAllocColor(DisplayOfScreen(screen),colonnap,&screenColor)) { 
int i, delta, closest =0; 
XColor colors[global-> levels]; 

for(i=0;i < global- > levels;i+ +) colors[i] pixel =i; 

X(^cryColors(DisplayOi3creen(screen),colorxnap,colors,global- > levels); 

delta =dist(screenColor,colors[0]); 

for(i = 1 ;i < global- > levels;i + + ) { 

int delta_new=dist(screenColor,colors[i]); 

if (delta_new< delta) { 
delta = delta new; 
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closest = i; 

} 

} 

DprintfCClosest color to 7es is pixel %d red %d green %d blue 
%d\n",str,colors(closest].pixel.colors[closest].red.colors[closest].green,colors[closest].blue 

); 

•closure_ret = (char*)True; 
done(Pixel. closest); 
} else { 

*dosure_rct = (char*)True; 
done(Pixel, screenColor.pixel); 

} 

} 

} 

void Dispatchflist) 
Batch list; 

• { 

if (list- > next! = NULL) Dispatchflist- > next); 
(list- > proc)(NULL.list- > closure, list- > call_data); 
if (list- > closure! = NULL) XtFree(list- > closure); 
if (list- > call_data! = NULL) XtFrceflist- > calljlata); 
XtFreeflist); 

} 

void BatcbCtrl(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 
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{ 

Dprinrf("BaichCtrl\n"); 
global- >batch=(String)closure; 

} 

void UnixShell(w,closure.call_daia) 

Widgex w; 

caddr t closure, call_daia; 

{ 

if (.J - - Fork((char •*)closurc)) Eprinrf( "Unable to fork\n"); 

} 

void InitDitherO 
{ 

int i, j, k, 1, 

dm4[4][4] = { 

0, 8. 2. 10. 

12, 4, 14, 6, 

3. 11. 1, 9. 

15. 7. 13. 5 

}; 

for(i=0;i<4;i++) 

for(j'=0;j<4a + +) 

for(k=0;k<4;k++) 

for(l=0;l<4;l++) 

global- >dither[4»k+i][4»l+j] = (dm4[i][j] < <4)+dm4[k][l]; 

} 
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source/Copy.h 



typedef struct { 
Video video; 

char nam* [STOLEN], src_name[STRLEN]; 
int UVsample(2]; 
int mode; 

Widget radioGroup; 
} CopyCulRec, *CopyCtrl; 
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source/Gram.y 



%{ 



Grammar for files: .elo 



^include " . . /include/x wa vc . h " 
include "Klics.h" 
include Transforra.h" 
^include "Copy.h" 
^include "Video-h" 
extern void VideoLoadO; 
extern void VideoSaveO; 
extern void VideoDropO; 
extern void ImponKlicsO; 
extern void VideoAbekusSaveO; 
extern void UoixSbellO; 
extern void BatchCompCirlO; 
extern void BatchTransCtrlO; 
extern void BatcbCopyCtrlO; 
extern void BatcbCompareO; 
extern void BatcbCtrlO; 
extern CompCtrl InitCompCtrlO; 
extern CopyCtrl InitCopyCtrlO; 
extern TransCtrl InitTransCtrlQ; 



static char *ptr t 
void NewBatchQ; 
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%union 

{ 



double fnum; 
ini nura; 
char "ptr; 
Boolean bool; 



}; 



%token SIZE TRANSFORM TRANSFORM_NONE TRANSFORMWAVE PATH 
%token FILE_PAL PALETTE RANGE LINE 

%token FTLE_VID TYPE FORMAT.MONO FORMAT_RGB FORMAT.YUV 
RATE DISK GAMMA PATH FILES START END LEN DIM HEADER OFFSETS 
NEGATIVE PRECISION 

%token FILE_BAT LOAD SAVE SAVE_ABEKUS COMPARE DROP 

COMPRESS VIDEO_NAME STATS_NAME BIN_NAME 

%token STILL_MODE VIDEO_MODE AUTO_Q QUANT_CONST 

THRES H_C ON ST BASE_FACTOR D1AGFACTOR CHROMEFACTOR 

%token DECISION DECMAX DECSIGABS DEC_SIGSQR FEEDBACK 

FILTER FLT_NONE FLT_EXP CMP.CONST SPACE LEFT_BRACE RIGHT_BRACE 

DIRECTION 

% tokcn FPS BITRATE BUFFER XWAVE SHELL IMPORT_KLICS 
%ioken COPY DIRECT_COPY DEFF LPF_WE LPF_ONLY RGB_YUV 
%token <num> NUMBER 
fetoken <ptr> STRING 
%token <fmnn> FNUMBER 
%token <bool> BOOLEAN 

%rype < num> number video jype decision filter 

%typc <ptr> string 

%type < fnum > fnumber 

7efype <bool> boolean 



•ti rrr rucrr mi H P 
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% start wait 

%% 
wait 

| pal_id pal_desc 

| video id video_dcsc 

| bat_id batjiesc bat_cnd; 

paljd : FILE_PAL { 

DprintfCGram: palette file %s\n",global->parse_file); 

}; 

video jd : FTLE_VID { 

DprintfCGram: video file &s\n",global->paxse_file); 
global- > videos- > start = 1 ; 
global- > videos- > si2e[2] = 1 ; 

>: 

bat_id : FILE_BAT { 

DprintfCGram: batch file %s\n",global->parse_file); 

}; 

| paJ_desc palette LEFT_BRACE mappings RJGHT.BRACE; 

: PALETTE string { 

PaJenc pal«=(Palen£)MALLOC(si2eof(PaletieRec)); 

DprintfCGram: palette %s\n",$2); 
strcpy(pal- > name, $2); 
pal- > mappings = NULL; 



pal_desc 



paJette 
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pal- > next = global- > palenes; 
global- > palenes=pal; 
global- >no_pals+ + ; 

}; 

j mappings mapping; 

: RANGE number number LINE number number { 

Map map = (Map)MALLOC(sizeof (MapRec)) ; 

DprintfrGram: Range %d to %d m=%d c=%d\n B ,$2,$3,$5,$6); 
map-> stan=$2; 
map- > finish =$3; 
map->m=$5; 
map->c=$6; 

map- > next - global- > palettes- > mappings; 
global- > palettes- > mappings = map; 

}; 

: video_defs { 

if (global- > videos- >size[0] = =0 && 

global- > videos- > size[l] = =0) { 

global- > videos- > size[0] = global- > videos- > cols; 
global- > videos- > sizefl] = global- > videos- > rows; 

} 

}; 

videojiefs : 

| video_defs videojief; 



mappings 



mapping 



video_de$c 



videojief : PATH string { 
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DprintfC Video path %s\iT,$2); 
strcpy(giobal- > videos- > path,S2); 

} 

j FILES string { 

Dprimf( "Frames stored in %s\n\$2); 
strcpy(global- > videos- > files, $2); 

} 

■ TYPE videojype { 

String rypes[] = { "Mono" , "RGB " , " YUV" } ; 

Dprintf("Vidco rypc: %s\n",types[32]); 
global- > videos- > type = (VideoFonnat)$2; 

} 

| RATE number { 

DprintfrVideo rate %d fps\n",$2); 
global- > videos- > rate = $2; 

} 

i DISK { 

Dprintf("Frames on disk\n p ); 
global- > videos- > disk = True; 

} 

j GAMMA { 

Dprintf("Gamma corrected\n"); 
global- > videos- > gamma = True; 

} 

J NEGATIVE { 

Dprintf("Negative video\n"); 
global- > videos- > negative = True; 

} 

! TRANSFORM videojransfonn 
| START number { 

Dprintf("Video start %03d\n".$2); 
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global- > videos- > sian=$2; 

} 

j END number { 

Dprintf("Video end %03d\n",$2); 

global- > videos- > size[2] = S2-global- > videos- > sun + 1 ; 

} 

j LEN number { 

DprintfC Video frames %d\n",$2); 
global- > videos- > size [2] = $2; 

} 

| DIM number number { 

DprintfC Video dimensions %d %d\n",$2,$3); 
global- > videos- > cols =$2; 
global- > videos- > rows =$3; 

} 

| HEADER number { 

Dprintf( "Video header size %d\n",$2); 
global- > videos- > offset = $2; 

} 

| OFFSETS number number { 

DprintfCVideo offsets %d %d\n",$2,$3); 
global- > videos- > x_offset = $2; 
global- > videos- > y_off set = $3 ; 

} 

| SIZE number number { 

DprintfCVideo size %d %d\n\$2,$3); 
global- > videos- > size[0] =$2; 
global- > videos- > size[l]=$3; 

} 

| PRECISION number { 

DprintfCVideo precision %d bits\n",8+$2); 
global- > videos- > precision= $2; 
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}: 

video type : FORMAT_MONO { $$ = (ini)MONO; } 

| FORMAT_RGB { $$=(ini)RGB; } 
| FORMAT_YUV number number { S$ = (int)YUV; 

global- > videos- >UVsamplc[0] =$2; global- > videos- >UVsaraple[l] =$3; }; 

video_iransfonn : TRANSFORM_NONE { 

global- > videos- > trans, type =TRANS_None; 

} 

| TRANSFORMJvVAVE number number boolean { 
Dprintf( "Video wavelet tranformed %d %d 

%s\n".$2.S3,$47"Tnie":"Falie"); 

global- > videos- > trans, type =TRANS_Wave 
global- > videos- > trans.wavelet.space[0] =$2 
global- > videos- > trans.wavelet.space{l] =$3 
global- > videos- > trans, wavelet.dirn- $4; 

}; 



bat end 



XWAVE { 

Dprintf("Gram: XWAVE\n"); 
NewBatch(BatchCtrl ,(caddr_t)NULL.NUUL) ; 



bat_desc : bat_cmds { 

Dprintf("Gram: End of batch file\n"); 

}; 



bat cmds 



I bat cmds bat cxnd; 
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bat_cmd : simplejrmd 

j complex_cmd 

simple_cmd : LOAD string { 

XawLisiReturnSmict •Iisi_retuni = (XawListReturnS tract 

*)MALLOC(sizeof(XawListReturnStruct)); 



Dprintf("Grajn: LOAD %s\n".$2); 
list_return- > string = $2; 

NcwBatch(VideoLoad.NULL,(caddrj)list_retuni); 

} 

| SAVE string { 

XawListReturnStruct •list_rrtuni = (XawLisiReturnSmict 

*)MALLOC(si2£of(XawListReturnStnict)); 

Dprintf("Gram: SAVE %s\n",$2); 
list_rctum- > string = $2; 

NewBaich(VidcoSave .NULL, (caddr_t)list_remni) ; 

} 

| SAVE_ABEKUS string string string string { 
AbekusCtrl 

Ctrl = (AbeJnisCtrl)MALLOC(sizcof(AbckusCtrlRcc)); 

Dprintf("Gram: SAVE_ABEKUS %s %s %s 

%s\n",$2,J3,$4,$5); 

strcpy(ctrl- > names [0] ,$2); 
strcpy(ctrl- > names[l],$3); 
strcpy(ctrl- > names[2],$4); 
strcpy(ctr]- > names[3] ,$S); 
NewBatch(VideoAbekusSave,(caddr_t)ctrl,NULL); 

} 



rt inrnn ITT CUCrT /p| ||C 
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j COMPARE string string { 

XawLisiReturnStruct *!ist_ return = (XawListRetumStruct 
■ )MALLOC( si2eof(Xa wListRetumS truct)) ; 

Dprintf("Gram: COMPARE %s with %s\n".$2,$3); 
list_rerurn- > string = $2; 

NewBatch(BatchCompare,(caddrj)$3,(caddrj)list_return); 

} 

| DROP string { 

XawListReturnSimct *list_retuni = (XawListRerurnStruct 

* )M ALLOC(sizeof (Xa wListRctumS tnict)) ; 

Dprintf("Gram: DROP %s\n",$2); 
list_rcrurn- > string <= $2; 

NewBatch(VjdcoDrop,NULL,(caddr_t)list_remrn); 

} 

| IMPORT_KUCS string { 

XawListReturaStruct *list_rctum=(XawListReturnStruct 
•)MALLOC(sizeof(XawListRcturnStruct)); 



Dprintf("Gram: IMPORT_KUCS %s\n , .$2); 
list_rctun>- > string =$2; 

NewBatch(lrnpoTtKlics,NULL,(caddr_t)list_retura); 

} 

| SHELL string { 

char •*argv, *str=$2; 

int c, argc = 1 , lcn=strlcn(str); 

DprintfCShell %s\n",str); 
for(c=0;c<len;c + +) if (strlc] ==' ') { 

strfcJ-W; 

argc+ + ; 
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} 



argv=(char ••)MALLOC((argc + l)"sizeof(char •)); 
aigc=0; 

for(c=0;c < len;c+ = 1 +sirlcn(str+c)) { 
argv[argc]=(char 

• )MALLOC((stilen(str + c) + 1 ) 'sizeoflchar)); 

strcpy(axgv[argcj,str+c); 
argc++; 

} 

argv[argc] = NULL; 

NewBatch(UnixSbeH,(caddrj)argv,NULL); 

}; 



complex_cznd 



: compress LEFT_BRACE comp_args RJGHT_BRACE 
j transform LEFT_BRACE trans_args R1GHT_BRACE 
copy copy_arg; 



compress : COMPRESS string { 

CompCtri ctrl=lnitCompCtrl($2); 



DprintfCGraro: COMPRESSXn"); 
NewBaich(BatchCompCtrl,(caddrj)ctrl,NULL); 



}; 



transform : TRANSFORM string { 

TransCtrl Ctrl = InitTransCtrI(S2); 



Dprintf("Gram: TRANSFORM^"); 
NcwBatch(BatchTransCtrl,(caddrj)ctrl,NULL); 



copy 



COPY string string { 
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CopyCirl ctr] = InitCopyCrrl(S2); 
Dprimff Gram: Copy\n"); 
strcpy(ctrl- > name. S3); 

NewBaich(BaichCopyCirl,(caddr_t)cirl,NULL); 



}; 



comp_args 



comp_args comp_arg; 



trans_args 



transargs trans_arg; 



copy_arg : DIRECT_COPY number number { 

Dprintf("Gram: Direct Copy (sample %d %d)\n*,$2,$3); 
((CopyCtrl)global- > batch Jist- > closure)- > mode = 1 ; 

((CopyCtrl)global- > batchjist- > closure)- > UVsample(0] = $2; 

((CopyCtrl)g lobal- > batchjist- > closure)- > UVsample ( 1 ] = $3 ; 

} 

| DIFF { 

Dprintf("Gram: Difference Copy\n"); 
((CopyCtrl)global- > batchjist- > closure)- > mode =2; 

} 

j LPFWOTE { 

Dprintf("Gram: LPF zero\n"); 

((CopyCtrl)global- > batchjist- > closure)- > mode =3; 

} 

| LPF_ONLY { 

DprintfCGram: LPF only\n'); 

((CopyCtrl)global- > batchjist- > closure)- > mode «4; 



WO 94/23385 



PCT/GB54/0W77 



-413 - 

| RGB_YUV { 

DprintfCGram: RGB/YUV\n"); 

((CopyCtrl)global- > batchjist- > closure)- > modc=5; 

} 

| GAMMA { 

Dprintf("Gram: Gamma conven\n"); 
((CopyCtrl)global- > batchjist- > closure)- > mode =6; 



comp_arg : V1DE0_NAME siring { 

Dprinrf("Gram: Compress name %s\n",$2); 

strcpy(((CompCtrl)global- > batchjist- > closure)- > name,$2); 

} 

| STATS_NAME string { 

DprintffGram: Stats name %s\n\$2); 

strcpy(((CompCtrl)global- > batchjist- > closure)- > stats_name,$2); 

((CompCtrl)global- > batchjist- > closure)- > stats_switch= True; 

} 

| BINNAME string { 

Dprintf("Gram: Bin name %s\n",$2); 

strcpy(((CompCtrl)global- > batchjist- > closure)- > bin_name,$2); 

((CompCtrl)global- > batchjist- > closure)- > bin_switch = True; 

} 

| STILL JdODE { 

Dprintf("Gram: Still\n"); 

((CompCtrl)global- > batchjist- > closure)- > sullvid=True; 

} 
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| VlDEO_MODE { 

DprintfCGram: Video\n"); 

((CompCtrl)global- > baich_lisi- > closure)- > siillvid = False; 

} 

j AUTO_Q boolean { 

DprintfCGram: Auto_q %s\n",$2?"True":"False n ); 
((CompCtrl)global- > batchjist- > closure)- > auto_q =$2; 

} 

| QUANT_CONST fnumber { 

DprintfCGram: Quant const %f\n",$2); 



((CompCtrl)global- > batchjist- > closure)- > quam_const =$2; 

} 

| THRESHCONST fnuraber { 

DprintfCGram: Thresh const %f\n",$2); 

((CompCtrl)global- > batch_list- > closure)- > thresb_const=$2; 

} 

| BASEJFACTOR number fnumber { - 

DprintfCGram: Base factor oct %d = %f\n\$2,$3); 

((CompCui)global- > batchjist- > closure)- > base_factors[$2] =$3; 

} 

| DIAG_FACTOR fnumber { 

DprintfCGram: Diag factor %An",$2); 

((CompCtrl)gJobal- > batch_list- > closure)- > diag Jactor = $2; 

} 

| CHROMEJvACTOR fnumber { 

Dprintf("Gram: Chrome factor^ An", $2); 

((CorapCtrl)global-> batchjist- > closure)- > chrome_factor=$2; 

) 
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| DECISION decision { 

DprintfCGram: Decision changed\n n ); 
((CompCtrl)global- > batch_list- > closure)- > decide = $2; 

} 

| FEEDBACK number { 

((CompCtrl)global- > batch Jisi- > closure)- > feedbacks $2; 
((CompCirl)global- > batchjist- > closure)- > auto_q = True; 

} 

| FILTER filter { 

String filters[2] = { "None", "Exp"}; 
DprintfCGram: Filter %s\n",filters[$2]); 
((CompCtrl)global- > batchjist- > closure)- > filter=$2; 

} 

| CMP.CONST fnumber { 

DprintfCGram: Comparison %f\n\$2); 
((CompCtrl)global- > batchjist- > closure)- > cmp_const = $2; 

} 

| FPS fnumber { 

DprintfCGram: Frame Rate %f\n",$2); 
((CompCtrl)global- > batchjist- > closure)- > fps = $2; 

} 

| BITRATE number { 

DprintfCGram: %dx64k/s\n",$2); 

((CompCtrl)global- > batchjist- > closure)- > bitrate = $2; 

} 

| BUFFER { 

DprintfCGram: Buffer on\n"); 

((CompCtrl)global- > batch_list- > closure)- > buf_switch=True; 

}; 

decision : DEC_MAX{ $$ » 0; } 
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| DEC_SIGABS { $$ = 1: } 
j DEC_S1GSQR { $$ = 2; }; 

filler : FLT_NONE { $$ = 0; } 

FLT_EXP { $$ = 1; }: 



trans_arg : VIDEO_NAME string { 

DprintfCGram: Transform name %s\n",$2); 

strcpy(((TransCtrl)gJobal- > batchjist- > closure)- > name,S2); 

} 

| DIRECTION boolean { 

DprintfCGram: Direction %s\n\$2?"True": "False"); 
((TransCtrl)global- > batchjist- > closure)- > dim =$2; 

} 

| SPACE number number { 

DprintfCGram: Space %d %d\n",$2,$3); 
((TransCtrl)global- > batchjist- > closure)- > space[0] = $2; 
((TransCtrl)global- > baich_list- > closure)- > space(l] =$3; 

} 

| PRECISION number { 

DprintfCGram: Precision %6 bits\n",8+$2); 
((TransCtrl)global- > batchjist- > closure)- > precisions $2; 

}; 

boolean : BOOLEAN { $$ = $1; }; 

string : STRING { 

ptr - (char *)malloc(strlen($l)+l); 

strcpy(ptr,l+$l); 
ptr[strlen(ptr)-l] = '\0'; 

$$ = ptr; 
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}: 

fnumber : FNUMBER { $$ = $1; }; 
number : NUMBER { $$ = $1; }; 

%% 

yyeiTor(s) char *s; { 

EprinrfCGram: error %s\n",s); • 

exit(3); 

} 

void Nc wBatch(proc , closure t call_data) 
Proc proc; 

caddr_t closure, call_data; 
{ 

Batch bat = (Batch)MALLOC(sizcof(BatchRcc)); 

bat- > proc = proc; 
bat- > closure = closure; 
bat- > call jiata =call_data; 
bat- > next = global- > batch Jist; 
global- > batch Jist = bat; 

} 
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source/Klics.h 



/• Block size - no not change */ 
^define BLOCK 2 

typedef int BlockfBLOCK] [BLOCK]; /• small block •/ 
/" tokens V 

#define TOKENS 15 

^define ZERO_STILL 0 
#define NON_ZERO_STILL 1 
#define BLOCK_SAME 2 
#definc ZERO_VID 3 
#define BLOCK_CHANGE 4 
#define LOCAL_ZERO 5 
#define LOCAL_NON_ZERO 6 
#define CHANNEL_2ERO 7 
#define CHANNEL_NON_ZERO 8 
#define OCT_ZERO 9 
#define OCT_NON_ZERO 10 
#define LPF.ZERO 11 
#define LPF_NON_ZERO 12 
#define LPF_LOC_ZERO 13 
#define LPF_LOC_N ON_ZERO 14 

static int token_bits[TOKENS] 
={1.1.1,2,2,1,1,1.1,1.1,1,1.1.1}; 

static unsigned char token_codes[TOKENS] = {0 t 1.0,l,3.0,l,0,l,0,l,0,1.0,l}; 
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/• decision algorithms */ 
/^define MAXIMUM 0 
#define S1GABS 1 
^define SIGSQR 2 

/* compression modes */ 
#define STILL 0 
#define SEND 1 
#define VOID 2 
^define STOP 3 

/* LookAhead histogram */ 
#define HISTO 400 
^define HISTO_DELTA 20.0 
^define HISTO_BITS 9 

^include "../include/Bits.h" 

typedef struct { 
Video src. dst; 

Boolean stillvid, stats_switch, bin_swhch, auto_q, buf_switch; 
double quant_const, thresh_const, cmp_const, fps, 

base_factors[5], diag_factor, chrome_factor; 
int bitrate, feedback, decide, filter; 

char name[STRLEN], siats_name[STRLEN] , bin_name[STRLEN]. 
src_name[STRLEN]; 

Bits bfp; 
} CompCtrlRec, *CompCtrl; 

typedef struct { 

Boolean stillvid, autojj, buf_switch; 

double quant_const, thresh_const, cmp_const, fps, 
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base_factors(5], diag_factor. chrome_factor: 

int decide; 
VideoFormat type; 
Boolean disk, gamma; 
int rate, start, size[3], UVsample[2]; 
VideoTrans trans; 
int precision; 
} KJicsHeaderRec, -KHcsHeader; 



ci locTmrrc cucrr /Pin P ?m 
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source/KlicsSA.h 



#include <stdio.h> 
include "Bits.h" 



#define ncg if (bool, value) ((bool)?-<valuc): (value)) 
extern Bits bopenO; 

extern void bcloseO. breadO, bwriteO, bflushO; 

/* Stand Alone definitions to replace VideoRcc &. CompCtrl assumes: 

♦ video- > type == YUV; 

• video- >UVsampleQ»{ 1,1}; 

* video->trans.wavelet.spaceD = {3,2}; 

* Ctrl- > bin_switch = = True; 
*/ 

#define SA_WIDTH 352 
#define SA_HEIGHT 288 
#define SA_PRECISION 2 

static double base_factors[3]={1.0,0.32,0.16,0.16,0.16}; 
Idefine diag_factor 1.4142136 
^define chrome_factor 2.0 
Idefine thresb_const 0.6 
^define cmp_const 0.9 

/* Block size - no not change */ 
Idefine BLOCK 2 



typedef int BlockfBLOCK] [BLOCK] ; /* small block •/ 
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/• tokens •/ 

#dcfinc TOKENS 15 

^define ZEROJTILL 0 
#define NON_ZERO_STTLL 1 
^define BLOCK_SAME 2 
#define ZER0_V1D 3 
#define BLOCK_CH ANGE 4 
^define L0CAL_2ER0 5 
#define LOCAL_NON_ZERO 6 
^define CHANNEL_ZERO 7 
#definc CHANNEL_NON_ZERO 8 
#define OCT_ZERO 9 
#dcfinc OCT_NON_ZERO 10 
#define LPF_ZERO 1 1 

#define LPF_NON_ZERO 12 
^define LPF_LOC_ZERO 13 
^define LPF_LOC_NON_ZERO 14 

static int token_bits [TOKENS] 

={1,1,1,2,2,1.1.1,1,1.1,1.1.1.1}; 

static unsigned char token_codes[TOKENS] = {0,l,0,l,3.0,l,0.1,0,l,0,l,0,l}; 

/• decision algorithms •/ 
^define MAXIMUM 0 
^define SIGABS 1 
^define SIGSQR 2 

/* compression modes */ 
#derme STILL 0 
Idefine SEND 1 
^define VOID 2 
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#dcfinc STOP 3 

/* LookAhead histogram */ 
^define HJSTO 400 
/fdefine H1STODELTA 20.0 
^define fflSTO_BITS 9 
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source/Lex.l 



%{ 



• Lex driver for input files: .pal .vid .bat 



♦/ 

# include 

# include 



'../include/xwave.h' 
../include/Gram.h" 



extern int ParselnputO; 



#undef 
#undef 
#undef 
iftindef 
^define 
Idefine 
^define 
^define 



unput 

input 

output 

feof 

unput(c) 

inputO 
output(c) 

feofO 



ungetc(c,global- > parse_fp) 

PaxseInput(global- > parsejp) 

putchar(c) 

(1) 



number -?[0-9J+ 
faumber -?[0-9)+V[0-9]+ 
string \ # <r"]|\\.)*\- . 

%stan WAIT MAP VIDEO BATCH BATCH_TRANS BATCH_COMP 

%n2000 
ftp 4000 
%e2000 
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V { 



char c»'\0'; 



} 



whi]e(c! = 7 , ) { 

while (c! = , *')c = input(); 
while (c= = '*') c=inpui(); 

} 



\.pal { BEGIN MAP; DprintffLex: Reading palette fJe\n"); return(FILE_PAL); } 
V.vid { BEGIN VIDEO; Dprinrf("Lex: Reading video file\n"); return(FILEJVTD); } 
\.bat { BEGIN BATCH; DprintfCLex: Reading batch filc\n"); ittuni(FTLE_BAT); } 



{number} 

{string} 

{rnumber} 



{ (void)sscanf(yytext, *%d", &yylval.mun); return(NUMBER); } 

{ yylval.pir = (char *)yytext; return(STWNG); } 

{ (void)sscanf(yytext, "%ir, &yylval.fnum); return(FNUMBER); } 



<MAP>Palene 

<MAP>\{ 

<MAP>\} 

< MAP > Range 

< MAP > Line 



{ ir tun}(P ALETTE); } 

{ return(LEFT_BRACE); } 
{ return (RIGHT_BRACE); } 
{ return(RANGE); } 
{ returnfllNE); } 



< VIDEO Type 

< VIDEO MONO 

< VIDEO > RGB 

< VIDEO >YUV 

< VIDEO Rate 

< VIDEO Disk 



{ return(TYPE); } 

{ return(FORMAT_MONO); } 

{ rctum(FORMAT_RGB); } 

{ return(FORMAT_yUV); } 

{ return(RATE); } 

{ return(DISK); } 



< VIDEO > Gamma { return(GAMMA); } 

< VIDEO > Negative { return(NEGA1TVE); } 
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< VIDEO > Path { rerurn(PATH); } 

< VIDEO > Files { retum(FlLES); } 

< VIDEO > Transform { rctum(TRANSFORM); } 

< VIDEO > None { rerurn(TRANSFORM_NONE) ; } 

< VIDEO > Wavelet { return(TRANSFORM_W A VE) ; } 

< VIDEO > Stan { return(START); } 

< VIDEO > End { return(END); } 

< VIDEO > Length { return(LEN); } 

< VIDEO > Dimensions { return(DIM); } 

< VIDEO > Header { return(HEADER); } 

< VIDEO > Offsets { return(OFFSETS); } 

< VIDEO > Size { return(SIZE); } 

< VIDEO > Precision { retura(PRECISION); } 

< VIDEO > Yes { yylval.bool =Tme; return(BOOLEAN); } 

< VIDEO > No { yylval.bool = False; return(BOOLEAN); } 



< BATCH > Load 

< BATCH > Save 

< BATCH > SaveAbeJcus 

< BATCH > Compare 

< BATCH > Drop 

< BATCH > ImponKLICS 

< BATCH > Transform 

< BATCH > Compress 

< BATCH > Xwave 

< BATCH > Shell 

< BATCH > Copy 

< BATCH > Direct 

< BATCH > Diff 

< BATCH > LPFzero 

< BATCH >LPFonly 

< BATCH > RGB- YUV 



{ return(LOAD); } 

{ return(SAVE); } 
{ renirn(SAVEABEKUS); } 

{ rerurn(COMPARE); } 

{ return(DROP); } 
{ return(IMPORT_KLICS); } 
{ BEGIN BATCH_TRANS; returnfTRANSFORM); } 

{ BEGIN BATCH_COMP; return(COMPRESS); } 

{ rcturn(XWAVE); } 
{ return(SHELL); } 

{ retura(COPY); } 
{ rcturn(DIR£CT_COPY); } 

{ returaCDIFF); } 

{ return(LPF_WIPE); } 

{ return(LPF_ONLY); } 

{ returnCRGB_YUV); } 
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< BATCH > Gamma 



{ rcturn(GAMMA); } 



< BATCH_COMP > VideoNarae 

< BATCH_COMP > Stats 

< BATCH_COMP > Binary 
<BATCH_COMP>Yes 
<BATCH_COMP>No 
<BATCH_COMP> Still 

< BATCH_COMP > Video 

< BATCH_COMP > AmoQuani 

< BATCH_COMP > QuantConst 

< BATCH_COMP > ThrcshConst 

< BATCH_COMP > BaseFactor 

< BATCH_COMP > DiagFactor 

< BATCH_COMP > ChromcFactor 

< BATCH_COMP > Decision 

< BATCH_COMP > Feedback 

< BATCHCOMP > Maximum 

< BATCH_COMP > SigmaAbs 

< BATCH_COMP > SigmaSqr 

< BATCH_COMP > FUier 

< BATCH_COMP > None 

< BATCH_COMP > Exp 

< BATCHCOMP > CmpConst 

< BATCHCOMP > FramcRate 

< BATCH_COMP > Bitrate 

< BATCHCOMP > Buffer 
<BATCH_COMP>\{ 
<BATCH_COMP>\} 
rcturn(RIGHT_BRACE) ; } 



( return( VTDEO_N AME) ; } 
[ return(STATS_NAME); } 
[ return(BIN_NAME); } 

{ yylval.bool=True; return(BOOLEAN); } 
{ yylval.bool = False; retum(BOOLEAN) ; } 
[ rcturn(STILL_MODE); } 
[ return(VTDEO_MODE); } 
[ retuni(AUTO_Q); } 
[ return(QUANT_CONST); } 
[ return(THRESH_CONST); } 

rtnirn(BASE_FACTOR); } 

retum(DIAG_FACTOR); } 

retuni(CHROMEFACTOR); } 

return(DEClSION); } 
renirn(FEEDBACK); } 

{ retum(DEC_MAX); } 
rcaim(DEC_SIGABS); } 
remm(DEC_SIGSQR); } 
remrn(FILTER); ) 
remrn(FLT_NONE); } 

{ returnCFLT_EXP); } 

retuntfCMPCONST); } 
retura(FPS); } 
returnCBITRATE); } 
renarnflBUFFER); } 

{ remrn(LEFT_BRACE); } 

{ END; BEGIN BATCH; 



< BATCH TRANS > VideoName { retum(VTDEO_N AME) ; } 



ci iRorrn nr shfft (RULE 2B 
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< BATCH_TRANS > Direction { rcrurn(DIRECTION) ; } 

< BATCH_TRANS > Space { reium(SPACE); } 

< BATCH TRANS > Precision { renirnfPRECISION); } 



< BATCH_TRANS > Yes 

< BATCH_TRANS > No 

< BATCH_TRANS > \{ 

< BATCH TRANS >\} 



{ yy Ival. boo! = True; retum(BOOLEAN); } 

{ yylval.bool=False; rerum(BOOLEAN); } 
{ return(LEFT_BRACE) ; } 

{ END; BEGIN BATCH; retum(RIGHTBRACE); } 



[. \t\n] 



{;} 



%% 

yywrapO { return(l); } 
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source/Transform. h 



i 

typedef struct { 
Video src; 

char namc(STRLENl, src_name[STRLEN]; 
im space[2], precision; 
Boolean dim; 
} TransCtrlRec, •TransCtrl; 



i 

s 
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source/Video.h 



typedef struct { 

char names[4] [STOLEN]; 
} AbekusCtrlRec, 'AbekusCtrl; 
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source/makefile 



M Xwave Makefile 
M 

CFLAGS = -O -I.. /include 

LIBS = -lXaw -lXmu -lXt -IXext -1X11 -lm -11 -L/usr/openwin/lib 

.KEEP_STATE: 
.SUFFIXES: .c .o 

xwaveSRC = Sclect.c Convert.c xwave. c IniiMain.c Pop2.c Video2.c Malloc.c 
IniiFrame.c \ 

Frame. c Transform. c Convolve3.c Update. c Image. c Menu.c 
PullRigbtMenu.c \ 

NameBunon.c SmeBSBpr.c Process. c Lex.c Gram.c Parse.c Color.c \ 
Biis.c Storage. c Copy.c Message.c PaJene.c IroponKlics.c IconS.c Klics5.c 

\ 

KlicsSA.c KJicsTestSA.c ImportKlicsSA.c ImpKlicsTestSA.c 
objDIR = ../$(ARCH) 

xwaveOBJ = $(xwaveSRC:%.c=$(objDIR)/%.o) 

S(objDIR)/xwave: $(xwaveOBJ) 

gcc -o S@ $(xwaveOBJ) $(UBS) $(CFLAGS) 
echo ••••••••••••••••••••• 

S(xwaveOBJ): $$(@F:.o«.c) ../inchide/xwave.h 
gcc -c S(@F:.o=.c) $(CFLAGS) -o $@ 

Lex.c: Gram.c Lex.l 
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lex Lex.l 

mv lex.yy.c Lex.c 

Gram.c; Gram.y 

bison -dli Gram.y 

mv 5(@F:.c = .iab.h) ../include/Gram.h 
mv $(@F:.c=.iab.c) Gram.c 



r 



r^i n ^ 



include/Bits.h 
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A'ifndef _Bits_h 
#define Bits h 

typedef struct { 

unsigned char buf; 

ini bufsize; 

FILE *fp; 
} BitsRec, *Bits; 

lendif 
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include/DTheader.h 



typcdef struct DTheader { 

char file_id[8J; /• "DT-IMAGE" •/ 

char struct Jd; /* 1 •/ 

char prod_id; /• 4 •/ 

char, utiljd; /• 1 •/ 

char boaxd_id; /• 2 V 

char create_time[9]: /* [0-l]year, [2]month, [3]dayofmonth, [4]dayofweek, 
[5]hour. [6)min, [7]scc, [8]sec/100 •/ 

char mod_timc[9]; /* as crcate_time */ 

char datum; /* 1 */ 

char dausize[4]; /* 1024?? •/ 

char iile_struct; I* \*l 

char datatype; /* 1 •/ 

char compress; I* 0*1 

char store; /• 1 */ 

char aspcct[2]; /• 4, 3 •/ 

char bpp; /* 8 •/ 

char spatial; /* 1 •/ 

char width[2]; /• 512 •/ 

char height[2]; /• 512 •/ 

char fuU_width{2]; /• 512 */ 

char ruU_height(2]; /• 512 •/ 
char unused 1(45]; 
char commcnt(160]; 
char unused2[256]; 
} DTheader; 
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include/Icon. h 



typedcf enum { 

FW label, FWJcon, FW_command, FWjext, FWJmnon, FW_icon_bunon f 
FW_view, FWjoggle, 

FW_yn, 

FW_up, FW_down # FW_integer t 
FW_scroil, FW_float, 
FWJonn, 
} FormWidgetType; 

typedcf enum { 

SW_below f SW_over f SW_top f SWjnenu, 
} SbellWidgetType; 

typedcf struct { 
String name; 
String contents; 

int fromHoriz, from Vert; 

FonnWidgetType type; 
String hook; 
} Fonnltcm; 
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• SXCoiisonium: Image.h.v 1.24 89/07/21 01:48:51 kit Exp $ 
*/ 



Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts, 
and the Massachusetts Institute of Technology, Cambridge, Massachusetts. 

All Rights Reserved 

Permission to use, copy, modify, and distribute this software and its 
documentation for any purpose and without fee is hereby granted, 
provided that the above copyright notice appear in all copies and that 
both that copyright notice and this permission notice appear in 
supporting documentation, and that the names of Digital or MTT not be 
used in advertising or publicity pertaining to distribution of the 
software without specific, written prior permission. 

DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING 

ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL 

DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL 
DAMAGES OR 

ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR 
PROFITS, 

WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER 
TORTIOUS ACTION, 
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ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 
THIS 

SOFTWARE. 

••/ 

#ifndef _XawImage_h 
^define _XawImage_h 

/ ,....,.»».».••• ...... ....... ...... — 

* linage Widget 

• • .......*•*/ 



^include <X11/Xaw/Simple.h> 
jfincludc <Xll/Xmu/Conveners.h> 



/• Resources: 



Name Class RepType Default Value 



border BorderColor Pixel XtDefaultForegTound 

borderWidth BorderWidth Dimension 1 

cursor Cursor Cursor None 

destroyCallback Callback XtCallbackList NULL 

insensitiveBorder Insensitive Pixmap Gray 

mappedWhenManaged MappedWhenManaged Boolean True 

sensitive Sensitive Boolean True 

bitmap Bitmap Pixmap NULL 

callback Callback XtCallbackList NULL 

x Position Position 0 
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y Position Position 0 

•/ 

i 

#define XtNbitraap "bitmap" 

r 

^define XtCBitroap "Bitmap" 

/• Class record constants */ 

extern WidgetClass imageWidgetClass; 

typedef struct JmageClassRec *lmage WidgetClass; 
rypedef struct ImageRec *ImageWidget; 

#endif /• _XawImageJi •/ 

/* DON'T ADD STUFF AFTER THIS #endif •/ 
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include/ImageHeader.h 

/• Author: Philip R. Thompson 

• Address: phils@aihena.mit.cdu. 9-526 

• Note: si2e of header should be 1024 (IK) bytes. 

• SHeader: ImageHeader.h,v 1.2 89/02/13 09:01:36 phils Locked $ 

• SDate: 89/02/13 09:01:36 $ 

• SSource: /mit/phils/utils/RCS/lmageHeader.h,v $ 



#define 1MAGEJVERSION 3 

typedef struct ImageHeader { 

char file_versionf8]; /• header version */ 

char beader_size[8]; /• Size of file header in bytes ♦/ 

char image width(8]; /* Width of the raster image •/ 

char image_height[8]; /* Height of the raster imgage */ 

char nura colors[8J; /* Actual number of entries in c_map */ 

char num_channels[8]; /• 0 or 1 - pixmap, 3 = RG&B buffers */ 

char num_picrures[8]; /* Number of pictures in file •/ 

char alpha_channel(4]; /• Alpha channel flag •/ 

char runlcngth[4); /• Runlength encoded flag */ 

char author[48]; /* Name of who made it •/ 

char dale (32); /* Date and time image was made */ 

char program[16]; /* Program that created this file */ 

char comment[96]; /• other viewing info, for this image */ 

unsigned char c_map[256][3]; /• RGB values of the pixmap indices */ 

} ImageHeader; 



/* Note: 

♦ - All data is in char's in order to maintain easily portability 



runrrmPTT ruCCT IOI I! C 
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* across machines and some human readibiliry. 

* - Images may be stored as pixmaps or in seperaie channels, such as 

* red, green, blue data. 

* - An optional alpha channel is sepcrate and is found after every 

* num_channels of data. 

* - Pixmaps, red, green, blue, alpha and other channel data are stored 

* sequentially after the header. 

* - If num_channels = 1 or 0, a pixmap is assumed and up to num_colors 

* of colormap in the header are used. 
•/ 

/••♦ end ImageHeader.h 
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* SXConsonium: ImageP.h.v 1.24 89/06/08 18:05:01 swick Exp $ 
*/ 

...... 

Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts, 
and the Massachusetts Institute of Technology, Cambridge, Massachusetts. 

All Rights Reserved 

Permission to use, copy, modify, and distribute this software and its 
documentation for any purpose and without fee is hereby granted, 
provided that the above copyright notice appear in all copies and that 
both that copyright DOtice and this permission notice appear in 
supporting documentation, and that the names of Digital or MTT not be 
used in advertising or publicity pertaining to distribution of the 
software without specific, written prior permission. 

DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING 

ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL 

DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL 
DAMAGES OR 

ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR 
PROFITS, 

WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER 
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TORTIOUS ACTION, 

ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 
THIS 

SOFTWARE. 

• • - • •• "—■7 



/* 

* ImageP.h - Private definitions for Image widget 

tfifndef _XawlmageP_h 
#definc _XawImagePJi 

/....».... ......»...............»*......*». »„...»...»*....*...»» 

+ 

♦ Image Widget Private Data 

......... ...... .................... ....,..........».»»*... .«....»*/ 

^include /include/Image .h B 
^include <Xll/Xaw/SimpleP.h> 

/* New fields for the Image widget class record */ 

typedef struct {int foo;} ImageClassPan; 

/* Full class record declaration */ 
typedef struct _ImageClassRec { 

CoreClassPan core_class; 

SimpleClassPart siraple_class; 
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ImageClassPan image_dass; 
} InageCUssRec; 

exiern ImageClassRec imageClassRec; - 

/* New fields for the Image widget record */ 
typedef struct { 
/* resources */ 

Pixmap pixmap; 

XtCallbackList callbacks; 

/* private state */ 

Dimension map_width, map_height; 
} ImagePart; 

* 

* Full instance record declaration 
+ 

typedef struct _ImageRec { 

CorePart core; 

SimplePart simple; 

ImagePart image; 
} ImageRec; 



#endif /• _XawImageP_h */ 
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include/Message.h 



rypcdcf stmct { 

Widgei shell, widget; /* shell and text widgets (NULL if not created */ 

XawTexiBlock info; /* Display text •/ 

int size, rows, cols; /* Size of buffer (info.ptr) & dimensions of display */ 

XawTextEditType edit; /♦ edit type •/ 
Boolean own_text; /* text is owned by message? •/ 

} MessageRec, 'Message; 
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include/PaJette.b 



Mefine PaJettePath V 

Mefine PaletteExt w .paT 

typedef struct _MapRec { 
int start, finish, m, c; 
struct _MapRec *next; 

} MapRec, *Map; 

typedef struct _PalerreRec { 
char name[STRLEN); 
Map mappings; 
struct _PaletteRec *next; 

} PaleaeRec, 'Palette; 
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include/PullRightMenu.h 



/• 

* SXConsonium: PullRightMenu.h.v 1.17 89/12/11 15:01:55 kit Exp $ 
* 

* Copyright 1989 Massachusetts Institute of Technology 
» 

* Permission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 

* the above copyright notice appear in all copies and that both that 
copyright notice and this permission notice appear in supporting 

* documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* written prior permission. M.I.T. makes no representations about the 

* suitability of this software for any purpose. It is provided "as is" 

* without express or implied warranty. 

* M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.I.T. 

* BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS. 
WHETHER IN AN ACTION 

* OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
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• PullRightMenu.h - Public Header file for PullRighiMenu widget. 

• This is the public header file for the Athena PullRighiMenu widget. 

• It is intended to provide one pane pulldown and popup menus within 

• the framework of the X Toolkit. As the name implies it is a first and 

• by no means complete implementation of menu code. It does not attempt to 

• fill the needs of all applications, but does allow a resource oriented 

• interface to menus. 



#ifndef _PullRightMenu_h 
#define _PuIlRightMenu_h 

^include <X11/Shell.h> 

^include <Xll/Xmu/Converters.h> 

* PullRighiMenu widget 

• • •/ 



/* PullRighiMenu Resources: 

Name Class RepType Default Value 



background Background Pixel XlDefaultBackground 

backgroundPixmap BackgroundPixmap Pixmap None 
borderColor BorderColor Pixel XtDefaultForeground 

borderPixmap BorderPixmap Pixmap None 
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bordcrWidih 
bonomMargin 
columnWidth 
cursor 

destroyCallback 

height 

label 

labelClass 



BordcrWidih Dimension 1 

VerticalMargins Dimension VenicalSpacc 
ColumnWidih Dimension Width of widest text 
Cursor Cursor None 

Callback Pointer NULL 

Height Dimension 0 

Label String NULL (No label) 

LabelClass Pointer smeBSBObjectClass 



sensitive 
topMargin 
width 
button 
x 

y 



True 
VerticalSpace 



mappcdWhenManaged MappedWhenManaged Boolean True 
rowHeight RowHeight Dimension Height of Font 

Sensitive Boolean 

VenicalMargins Dimension 
Width Dimension 0 

Widget Widget NULL 
Position Position 0 

Position Position 0 



typedef struct _PullRigbtMenuClassRec* PullRightMenuWidgetClass; 
typedef struct _PullRightMenuRec* PullRightMenuWidget; 



extern WidgetClass pullRightMenuWidgetClass; 



#define XtNcursor "cursor" 
^define XtNbottomMargin "bonomMargin" 
#define XtNcolumnWidth "columnWidth" 
#define XtNlabelClass "labelClass" 
#define XtNmenuOnScreen "mcnuOnScrten" 
#define XtNpopupOnEntry "popupOnEntiy" 
^define XtNrowHeight "rowHeight" 
#define XtNtopMargin "topMargin" 



SI JBSTTU nr SHFrr /pt n r rxn 
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#define XiNbunon "bunon" 

^define XtCColumnWidih "ColumnWidlh" 
#defuie XtCLabelClass "LabelClass" 
#defuie XtCMenuOnScreen "MenuOnScreen" 
^define XtCPopupOnEntry "PopupOnEntry" 
#dcfine XtCRowHeigbt "RowHeigbi* 
#define XtCVenicalMargins "VenicalMargins" 
define XtCWidgct "Widget" 

.».. *+*.»*** 

* Public Functions. 

»..»»»»»» *. »»«»».*»•»*.•..»*•»***/ 

/* Function Name: XawPullRightMcnuAddGlobalAcrions 

• Description: adds the global actions to the simple menu widget. 
*' Arguments: app_con - the appcontcxt. 

♦ Returns: none. 
•/ 

void 

XawpullRightMenuAddGlobalActions(/* app_con */); 
/• 

XtAppContext app_con; 
V 

fcndif/* PuIlRightMenuJi V 



r» to^TTTi rrr currr /oi new 
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include/SmeBSBpr.h 

• SXConsonium: SmcBSB.h.v 1.5 89/12/11 15:20:14 kit Exp $ 

• Copyright 1989 Massachusetts Institute of Technology 

• Permission to use, copy, modify, distribute, and sell this software and its 

• documentation for any purpose is hereby granted without fee, provided that 

• the above copyright notice appear in all copies and that both that 

• copyright notice and this permission notice appear in supporting 

• documentation, and that the name of M.I.T. not be used in advertising or 

• publicity pertaining to distribution of the software without specific, 

• written prior pennissiou. M.I.T. makes no representations about the 

• suitability of this software for any purpose. It is provided "as is" 

• without express or implied warranty. 

• M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

• IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.I.T. 

• BE LIABLE FOR ANY SPECIAL. INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

• WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
WHETHER IN AN ACTION 

• OF CONTRACT. NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

• CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
•/ 



SUBSTITUTE SHEET (RULE 26) 
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• SmeBSBpr.h - Public Header file for SmcBSB object. 
• 

• This is the public header Ale for die Athena BSB Sme object. 

* It is intended to be used with the simple menu widget. This object 

* provides bitmap - string - bitmap style entries. 



#ifhdef J5meBSBpr_h 
#define _SmeBSBpr_h 

^include <Xll/Xmu/Conveners.h> 
^include <X11/Xaw/Sme.h> 



• SmeBSBpr object 



/* BSB pull-right Menu Entry Resources: 



Name 



Class 



callback Callback 
destroyCallback Callback 
font Font 
foreground Foreground 



RepType 



Default Value 



Callback NULL 

Pointer NULL 
XFontStruct * XtDefaultFont 

Pixel XtDefaultForeground 



height 
label 



Height Dimension 0 

Label String Name of entry 



SlIBSTTTirrF SHFFT fRM F 
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ieftBiunap LeftBinnap Pixmap None 

leftMargin HorizontalMargins Dimension 4 

righiBitmap RigbtBitmap ' Pixmap None 

rightMargin HorizontalMargins Dimension 4 

sensitive Sensitive Boolean True 

venSpace VenSpace int 25 

width Width Dimension 0 

x Position Position On 

y Position Position 0 



rnenuName MenuName String "menu" 
*/ 

typedef struct _SmeBSBprClassRec *SmeBSBprObjectClass; 

typedef struct _SraeBSBprRec *SmeBSBprObjcct; 

extern WidgetClass smeBSBprObjcctClass; 

^define XtNleftBitznap "leftBitmap" 

^define XtNIeftMargin "leftMargin" 

^define XtNrightBitmap "rightBitmap" 

#define XtNrightMargin "rightMargin* 

tfdefiue XtNvertSpace "venSpace" 

^define XtNmenuName "menuName" 

#define XtCLcftBitmap "LeftBhmap" 

^define XtCHorizomalMargins "HorizontalMargins" 

^define XtCRightBitmap "RigbtBitmap" 

#define XtCVcrtSpace "VenSpace" 

#define XtCMenuName "MenuName" 

#endif /* _SmeBSBprJi •/ 
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include/SmeBSBprP.h 



• SXConsonium: SmcBSBP.h,v 1.6 89/12/11 15:20:15 kit Exp $ 

• Copyright 1989 Massachusetts Institute of Technology 
* 

• Permission to use, copy, modify, distribute, and sell this software and its 

• documentation for any purpose is hereby granted without fee, provided that 

• the above copyright notice appear in all copies and that both that 

• copyright notice and this permission notice appear in supporting 

• documentation, and that the name of M.I.T. not be used in advertising or 

• publicity pertaining to distribution of the software without specific, 

• written prior permission. M.I.T. makes no representations about the 

• suitability of this software for any purpose. It is provided "as is" 

• without express or implied warranty. 

• M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

• IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.I.T. 

• BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

• WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
WHETHER IN AN ACTION 

• OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

• CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
. * Author: Chris D. Peterson, MIT X Consortium 
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•/ 

/♦ 

* SmeP.h - Private definitions for Sme objeci 

#ifndef _XawSmeBSBP_h 
^define _XawSmcBSBP_h 

/........»•......•••.* 

» 

* Sme Object Private Data 

• ••••••••*/ 

^include <Xll/Xaw/SmeP.h> 
^include "../include/SmeBSBpr.h" 

/••••—••• * •••••••••••••••• •••• 

* New fields for the Sme Object class record. 

• * * ••/ 

typedef struct SmeBSBprClassPan { 

XtPoimer extension; 
} SmeBSBprClassPan; 

/* Full class record declaration */ 
typedef struct _SmeBSBprClassRec { 
RectObjClassPart rectjrlass; 
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SmeClassPan sme_class; 
SmeBSBprClassPan sme_bsb_class; 
} SmeBSBprClassRec; 

extern SmeBSBprClassRec SmeBSBprClassRec; 

/* New fields for the Sine Object record •/ 
typedef struct { 
/* resources */ 

String label; /* The entry label. */ 

int ven_space; /* extra vert space to leave, as a percentage 

of the font height of the label. •/ 
Pixmap left bitmap, right_bitmap; /* bitmaps to show. */ 
Dimension left_margin f right_margin; /* left and right margins. */ 
Pixel foreground; /* foreground color. */ 

XFontStnict * font; /* The font to show label in. */ 

XtJustify justify; /* Justification for the label. •/ 

String menu_name; /* Popup menu name */ 

/* private resources. */ 

Boolean set_vaJues_arta_c 1 eared ; /• Remember if we need to unhighlight. */ 

GC nonn_gc; /• noral color gc. */ 

GC rev_gc; /• reverse color gc. •/ 

GC norra_gray_gc; /• Normal color (grayed out) gc. */ 

GC invertjjc; /• gc for flipping colors. */ 

Dimension left_bitmap_width; /* size of each bitmap. */ 
Dimension left_bitmap_beight; 
Dimension right_bitmap_width; 
Dimension right_bitmap_height; 
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} SrncBSBprPan; 



Full instance record declaration 



rypedef struct _SmeBSBprRec { 

ObjectPart object; 

RectObjPan rectangle; 

SmePart sme; 

SmeBSBprPart sme_bsb; 
} SmeBSBprRec; 

/••—•••—••»• ••••••••••••••••••••••••• 

• Private declarations. 

#endif /• XawSmeBSBPprJi ♦/ 
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include/xwave.h 



^include 


<X11/Xlib.b> 


^'include 


<Xll/XutU.h> 


#include 


<Xll/Xatom.h> 


^include 


< XI 1/Xaw/Cardinals.h > 


^include 


<Xll/SiriDgDefs.h> 


# include 


<X11/Xmu/Xjnu.b> 


ffinClUQG 


^ Yl 1 /Yaw/Command. h> 


include 


^ Y 1 1 /Yaw /I ict h> 




^ Y1 1 /Yaw/Box h> 


ft lUwJUUC 


< XI 1/Xaw/Fonn.h > 




< XI l/Xaw/Scrollbar.h> 


ft Uik 1 UUb 


< XI 1/Xaw/Viewport-h > 




< XI 1/Xaw/AsciiText.h > 


ft UiLIUUW 


<Xll/Xaw/Dialoc.h> 


^include 


< XI 1/Xaw/MenuButton.h > 


^include 


< XI l/Xaw/SimpleMenu.h> 


# include 


< XI l/Xaw/SmeBSB.b> 


# include 


<Xll/Xaw/Toggle.h> 


# include 


'SmeBSBpr.h* 


#include 


X^lliJvJgDLiVl QUI . 11 


^include 


<Xll/SheU.h> 


^include 


<Xll/cursorfont.b> 


^define 


STRLEN 100 


^define 


NAMELEN 20 


^include 


"Image.h" 


^include 


•Message.h" 


^include 


<dircni.h> 


^include 


<math.h> 
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^include <stdio.h> 
include "Paletie.h" 
^include "Icon.h" 

#define PLOT_DIR -graphs' 

#define PLOT_EXT ".plot" 

#dcfine ELLA_IN_DIR 

^define ELLAJN_EXT ".eli" 

^define ELLA_OUT_DIR "." 

define ELLA_OUT EXT ".do" 

^define VID_DIR "videos" 

^define VID_EXT ".vid" 

#define IMAGE_DIR "images" 

^define BATCH_DIR "batch" 
^define BATCH_EXT ".bai" 

#define KLICS_DIR "import" 

tfdefine KLICS_EXT ".klics" 

^define KIJCS_SA_DIR "import" 

^define KLICS_SA_EXT ".klicsSA" 

typedef enum { 

TRANS_None, TRANSWave, 

} Trans Type; 

typedef enum { 

MONO, RGB, YUV, 
} VideoFormat; 

extern String ChannelName(3H4]; 

tfdefine negif(bool.value) ((bool)?-(value):(value)) 



PL'l/ijisya/uuo// 
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rypedef struct { 

String name; 

Pixmap pixmap; 

unsigned int height, width; 
} IconRec, *Icon; 

typedef void (*Proc)(); 
typedef String *(*ListProc)0; 
typedef Boolean (*BoolProc)(); 

typedef struct { 
String name; 
WidgetClass widgetClass; 
String label; 

String hook; /• menuName for smeBSBprObjectClass */ 
} Menultem; 

typedef struct { 

String name, button; 

ListProc listj>roc; 

String action_name; 

Proc action j>roc; 

caddr_t action_closure; 
} Selectltem, 'Selection; 

typedef struct { 

TransType type; 

int space[2]; 

Boolean dim; 
} WaveletTrans; 

typedef union { 



ci tDdvn nr cucrr m\ n c ?K\ 
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TransType rype; 
WaveletTrans wavelet; 
} VideoTrans; 
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rypedef struct _VideoRec 
char name(STRLEN); 
char pathfSTRLEN]; 
char files[STRLEN]; 
VideoFormat type; 
Boolean 
Boolean 
Boolean 
int rate; 
start; 



{ 



int 
int 
int 
int 
int 
int 



/• Name of this video name.vid */ 
/• Path to frame fiJe(s) •/ 
/• Name of frames filesOOl if not name */ 
/• Type of video (MONO.RGB, YUV) •/ 
disk; /* Frames reside on disk rather than in memory */ 
gamma; /* Gamma corrected flag */ 

negative; /• Load negative values in data •/ 

/• Frames per second */ 
/* Starting frame number */ 
size[3]; /* Dimensions of video after extraction x, y and z V 
UVsample[2]; /* Chrominance sub-sampling x and y */ 

offset; /• Header length */ 

cols, rows; /♦ Dimensions of video as stored •/ 

x_offset, y_offset; /• Offset of extracted video in stored •/ 



VideoTrans trans; 
int precision; 
short **data[3]; 
stmct _VideoRec *next; 
} VideoRec, 'Video; 



/• Transform technique used •/ 
/* Storage precision above 8 bits */ 
/* Image data channels */ 
/• Next video in list */ 



typedef' struct { 

Video video; 

char namefSTRLEN]; 
} VideoCtrlRec, *VideoCtrl; 



rypedef struct _PointRec 
int location[2]; 
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int usage; 

struct _PoiruRec *next; 
} PointRec, *Point; 



rypedef struct _FrameRec { 

Widget shell, imagejvidgct, point_merge_widget; 
Video video; 

int zoom, frame, channel, palette; 
Boolean point_switch, pointjnerge; 
Point point; 
Message msg; 
struct _FramcRec *next; 
} FrameRec, *Frame; 



^define NO_CMAPS 6 

rypedef struct JJatchRec { 
Proc proc; 

caddr_t closure, call_data; 
struct _BatchRec *next; 
} BatchRec, *Batch; 

typedef struct { 

char home[STRLEN]; 
XtAppContert app_con; 
Widget toplevel; 
int no_icons; 
Icon icons; 
Video videos; 
Frame frames; 
Point points; 
Palette palettes; 
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int no_paIs; 
String parse_file; 
String parsejoken; 
FILE *parse_fp; 
XVisuallnfo "visinfo; 
int levels, rgbjevels, yuvjevels[3]; 
Colonnap cmaps[NO_CMAPS]; 
String batch; 
Batch batchjist; 
Boolean debug; 
int ditherI16][16]; 
} GlobalRec, ^Global; 

typedef struct { 

Widget widgets[3]; 

int max, min 9 * value; 

String format; 
} NumlnputRec, •Numlnput; 

typedef struct { 

Widget widgets [2]; 

double max, min, *value; 

String format; 
} FloatlnputRec, *FloatInput; 

extern Global global; 
/* InitFramex */ 
extern Video FindVideoQ; 
/• Pop2.c */ 



/*M fft »~ 
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extern void NAO; 
extern Widget FindWidget(); 
extern void Destroy (); 
extern void Free(); 

/* Storages */ 

extern void NewFrameO; 
extern void GetFrameO; 
extern void SaveFraxneO; 
extern void FrteFrame(); 
extern void SaveHeaderO; 
extern Video CopyHeaderO; 

/* Message. c */ 

extern void TextSizeO; 

extern Message NewMcssageO; 

extern void MessageWindowO; 

extern void CloseMessageO; 

extern void MprimfO; 

extern void DprintfO; 

extern void EprintfO; 

extern void MflushO; 

/• Icon3x •/ 

extern void FDlFonnO; 

extern void FillMenuO; 

extern Widget ShellWidgetO; 

extern Widget Format WidgetO; 

extern void SimpieMenuQ; 
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extern int TcxtWidthO; 

extern Icon FindlconO; 

extern void NumIncDec(); 

extern void FloatlncDecO; 

extern void Change YN(); 

extern XFontStruct *FtndFont(); 
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DATA COMPRESSION AND DECOMPRESSION 
GREGORY KNOWLES AND ADRIAN S. LEWIS 

M-2357 US 
APPENDIX B-l 



WO 94/23385 



- 466 - 



PCT/GB94/0O^T7 




WO 94/23385 



- 467 - 



PCT/GB94/MKT7 



| 

CD 

& 



i 



3. 



i 

1-2 

--a 

a> CC 

H 

n 5 
a a 

it 



ST 

2T 



to i w 



o 

LU 
CD 



Is 

Si 

UJ 



E 



ft) - uj Q 

i 



si 



3* 



CO 
n 



LU 



Si 

O uj 



CO 

o 



I 



CO 

s' 

CO 



1 



I 



« 

I 

CO 
Q 



CO 

2 

CO 



CO 



i IS I 



CSJ, 

8. 



5 



1 



"S 
ca 

CO 

5 

i 

n 

oc 
o 
o 

o' 

a. 

CO 

o 



WO 94/23385 



- 468 - 



PCT/CB94/00€77 



■i 

CO 

a. 
"i 



CO 

-3 



I 



CNJ 



O 

1 



3 

CO 



CO • 

?l 

II 

E of 

§ <•» 

Sc7 

CP •C 
CO o 

S3* 

*- to < 

3 co. 



o 
z 

II 



CO 



s o a. 

Oh- t-a 

lu uj 3z 

CO -J O LU 




5 g 

g 2. 



5 ~i M 



co o 



3 



2 1*'35 

CP JQ © X 

MS" 

E --'o^5 



.5 




"iff 



CO 
CO 



2 Z «'^s g 

I z So $ 

5 °,ff ? 8 

■o ; ? w J 

£ QH 
« < CO 



Sir 



l« s , 



If 

> S e 
3 - 1 1 

s?: 

T3 _l 42 

I 8 S 
|lf 

8.1 £ 

ill 



18 I'll 18,1 



3-i 

as. a> 



3. 



a> O 
5 CD 




WO 94/22385 



- 469 - 



PCT/GB94/006T7 




WO 94/23385 



. 470 - 



PCT/GB94/006T7 



LU Q 
OUJUJ 



i 



O 



C 

-8 
■8 



i 



S 



a. 
CO 



1 

l 

a 

I 

e 
S. 

CO 



o 

1' I 



CM 

s 

5 

3. 



I 

i 
i 

E 



a> 

CO 

tb 



LU g 

g 8, 

jg ° UJ Q 

3 
5 
1 



CO 

"§ 5 



ill 

* § UJ 
UJ —J 

OO 
it 



o 

CO 
LU 



1 



CO 



1 



1 



cl UJ O 



2 



e 



s 

~l 

UJ UJ 

3 

e 

f 

o 



O 
CD 

I 



1 



CO 



o 

IB 

3 



3 

CD 



1 



e 

cu 

CO 

s 



O o 



O 
J 1 

LU 

o 

I 



WO 94/23385 



-471 - 



PCT/GB94/006 




WO 94,13385 



. 472 - 



PCT/CB94/00677 



i 

A 

• 

5 

e' 

CP 

E 

A 



CO 

2 

o 

CQ 



3 



j 



CQ 

o. 

CO, 



CO 

2 



78 

CP 



I 

CO 
CP 



2 

CP 



3 

CP 



CP 

1 

O 

o 



£ 3 

== 1 CO 



c 

CO 



2 , "5 



o ^Z- 



O 
CP 



CP 
CO 
CP 




o 

I, 

■5 

u 



cc 

I 

o 

5 * 



UJ 
CC 

& 

E 
a> 

5 



O 

Ui 
CD 




O O 



< 



LU 



WO 94/23385 



. 473 - 



PCT/GBS4/00677 



5 

8 

■3 
•8 



1 



e 
8 

J 

mT o 
<P CO 
CO co 

lis 

« 9 Q- 
CO 5 co 

< £ £ 



CP 
CO 

O 



a> 

CD 

5 

S 



CSJ 

ce 

i 



■ 

a» 
J5 

Hi 
S 



t 



s 

to" 



3 

u. 

Q 

a 

8 
c 

8 

e 



i 

E 

1 
1 

CO 

£ 

"5 



S 

E 



o 2r 
a> a> 



UJ 



uj CO CO 



It 

"35 U. 

co,0 



CO 



i 



5 



8. 



CO 
CO 



CO 



10 

CO CP 



5 

8 



2. 



8 



CO 



1 



ft 

8 ,=- - 

=-'8,2,-, - 

w MP 

x ' a. co *o 



CO 

I 

.E ? 



ft- —J. 

1*' 

"S *s 

CD "O 



a. 
J5. 



a> 



5 



•J 
u. 

Q 

tl 

i 



i 



> 

CO 



CO 
CO 

s 



—i JUL 



t' 

O 
R 

5 

co 
■a 



WO 94/23385 



PCT/CB94/00677 




WO 94/23385 



. 475 - 



PCT/GB94/00€77 



» 




WO 94/23385 



- 476 - 



PCT/GB94/0O6T7 



3. 2 

9 e> 



111 

9.o 



CO 



O OB 

CI CO 

ill 

Sofe 83 



5 

UJ 



5 CP 

lis* 

w o UJ UJ 




WO 94033*5 



- 477 . 



PCI7GB94/006T7 




WO 94/23385 



• 478 - 



PCT/GB94/00677 




WO 94/21385 PCT/GBW/0W77 

• 479- 



I 




WO 94/23385 



. 480 - 



PCT/GB94/00677 




WO 94/23385 



-481 - 



PCT/GB94/00677 




WO 94/23385 PCT/CB94/00677 

- 482 - 




WO 94/233S5 



- 483 . 



PCT/GB94/O06T7 




WO 94/23385 



- 484 - 



PCT/CB94/00677 



9 



3 



8 "K « 
CO S g 

o ffi 

• ■ 

■E 

i 



CO 
UJ 



"8. 



■5 

I 



CO 



CM. 



8 

CM 

H 



g O LU UJ tt 



CO. 



Ui 

*3 



e 

CO 

> 



UJ 

O 

JL u. 
o o 

CO. 



"5 • 
m O 

£ uj a 



i 

I 

CD. 



O 
cc 



5 ° 
O uj 



co 

o' 

UJ 
CL 
O 

CD 

* • 



I 



CO 

O 

UJ 

J3 



JO 

m 

iJ A 



li 

CD 

E n 
»co 

© uj 

§3 



Is- 

a - 
as 

E CC 
3 a 

< z 



WO 94/23355 



- 485 - 



PCT/CB94/00677 




WO 94/23385 PCT/CBV4/0O677 

- 486 - 




WO 5*4/23385 



- 488 - 



PCT/CB94/00677 



CO 
CP 



o 

E 

s 

o 
2 

CO 

.CO 

CO 

E 



CP 



S 22 

-J c3 To 

Hi I 

s sS § 



5l 



5 

hi? 

w co o 

< O UL J 



5 



E c 



O 



CO o 
UJ m o 

UJ ~ ~ 



III UB 

it 

£5 



w 



CO 

s 



I 

co 
o 

CO 

s 

.1 

If 



s 



I 



i 

o 

i 



I 

CO 



s 



_i _ 

i fi 



5 — ° 

- «2 
? ty e o 

r o 



I w © 

O c 
Z ui O 

O ui UJ 



J, 

CO 



%i 

UJ 



o 

UJ 



31 



I 



co 



9 

CO 

5 

m 

o 
n 



r 

8 

I 

I 

ca 

J 

i 8 

Si 



-e 8. 



o 

o 
o 



5 



o 

UJ 
CD 



CO 

2 

LU 

2 

a 



UJ 



WO 94/23345 



- 489 - 



PCT/CB94y006T: 




WO 94/23385 



-491 - 



PCT/CB94/00677 



I 



.2 




a 

LU 
CD 



CM. 



2 



ui o 

UJ UJ 



O 

CO 
UJ 



i 




UJ 



d§ 

LU 



o jo co ^ 



% CO N 

o) a cs 



i|2 
sil J 



a. 
E 



WO SW/23385 



- 492 - 



PCT/GBSMA)0677 



I 



2 

ca CO 

a > 

CP 
CO 

9 



CD 

CO 

2 



CO CO 

.2 .S 



CO 
CD 
> 
CO 

o 



15 

S 

°. e 

cy <S 
o > 

c c 
co •= 
c co 

*E o 

3 



00 



co 

2 
8 



a x> 
E o 

JSE 

— * CO ^ 
CM CM CSJ 



CO 

ac 

2 

CO 



a. 

O 



co 
a: 

s 

CO 



CL 

o 

00 



* _ i 



CO ~ 



T3 
CO 



CO CO 





CO 

i. 


^1 




CM 


CM 








O 


CP 

s 


data 


E 
ii 

>- 




B 

0 
»— 


^* 








CM 


CO 




in 




O 

o 


CO 


5 ^ 




z 



CO 

5 

8 



2 



_ If 

CM 

o 

1 



-J 

55 



s 



CO c ' 

ii 



5 

i 

CO 

I 

-8 



3 



JE co 

"8 
f. 

CO 



i2 

CP 



|| 
§-1 



5 

3 



TO OT ~f 

c\j o — 

e'fj 

Q O jc 

o§ I 

luj > 

Si I 



WO 94/233*5 



- 493 - 



PCT/GB94/00677 



2 

8 



■S 



I 

I 

E 

* * 

o 

UJ 
-J 

O 



© 




o o o 

UJ UJ UJ 

-J -J -J 

C OQ ^ 

O) Cl 0) 



O 

UJ 
-J 

o 



^SS-8< S 

UJ Ui UJ oo x c 

J J Jva Q 
□□OS o 8 

c7<n a> > uj S 

J ° 




o o 



I 

I 
a. 

O 

z 

SB* 

CO u. 

= 1 

2 o 



8 
1 

X 
9 



'11 



£1 o 



p. 



a. 

-<5: 



o 
ca 

S 



CO 00 CO 



S CD 

S O 



£2.-1 
55" co 

m m 
O O 



•8 



B 

II 

ij 

°l 

75 



u 



WO 94/23355 



- 494 - 



PCT/GB94/00677 




WO 94/233BS 



- 495 - 



PCT/CB94/00677 




WO 94/233«5 



- 496 - 



PCT/GB94/00677 



t3 

a 1 8. 



II 9 

* • mm 

s ■ 



CO 
UJ 



if 

J 

H 

c g 

p 

UJ QJ O 

CO CO < 

<: tJL 1j co 
C O uj uj 




3*8 

uj a 



E 



TS 

a' 

E 
A 
TS 
o 



1 



i 



° UJ O UJ o uj o 

3 3 < £ 3 £ 

O Uj UJ O O uj uj 

> o 

CO 
UJ 



WO 940338S 



- 497 . 



PCT/CB94/00677 



f 



'9 



o 

•c 

eg 

01 



•■a 

s < 

•i k' 

S .9 

J 8 



c 

i. 




UJ 

< 

o 



— UJ 

u. eg 

O uj 



uj U O 



o 

CO 
UJ 



uj uj uj w 

U CO 
UJ UJ 



O 



> 



i 

CM 

> « 



o • 

= j? 

S E 



I 



i 




I 

«? 

1 



'IS 

1 1 



- .2 



0 CQ 

1 • * * 



till 



If git 

O lo o ^ 



. o 

51 



9 zi 



Hi 

8 
o 

§ 

o 

s 



o 



l"5 = CO 2 CO 



>< r 



uj q r 

S ^ 

lb 

"i 

> 

£5 
o 
o 



S?S?o ■ jo 

g g UJ » 



a> 



i 

I 



i - 



i 



9 
> 

8 



WO 94,233ES 



- 498 - 



PCT/GB94/00677 




WO 94/21385 PCT/GB94/0O677 

- 499 - 




WO 94/23385 



- 500 - 



PCT/CB94/0W77 



(A 

I 

CP 

£ 



m n 2 
0000 

A A A A 
1 • • 1 

8 J J 3 g 1 



■o 

A 



CM 
CO 



O 

1 



CO 
O 




ip\ 
cO CO 

IS 



8 



CM 
CO Xb 

I I 

ii 

8,5 




cd co 



CD CP 

§§ 



s 1 § s 

f »'3 

8^ 

A 



3 



A 
« 



IS 



o ^ u5 iS in c$ c\j 

f f Iff f " 

_8 888 8 o © 

CD ff^ ff^ qq fn rr\ cq CD 

.11 1 .1 . I .1 .1 




CD GD 



CD ^ CD CD 



CD CD CD CD CD CD 

<& ! 8f o ■§ ^ - ^ 

T3 # ^IItJ*-'tJ^ "O ~ TS "6 

"™ "™ >iL "S» "Si *iL cs ca ca 



o p p 

u_ u. u_ 



o 

s 
3 

E 

H 

i 
i 

CP 

f 

OD 

S 

cd 

S Z 



I 

§ 

8 £ 

1X1 cd 

o 1 

£ O uj 

8 



WO 94/Z3385 



PCT/GB94/00677 



•501 - 




WO 94/233*5 



- 502 - 



PCT/GB94/0W77 




WO 94/23385 



- 503 - 



PCT/C 894700677 




WO 94033SS 



-504 . 



PCT/GB94/0M77 




WO 94/23385 PCT/GB94/0WT7 

-505- 




WO 94/23385 



- 506 - 



PCT/GB94/00*77 




WO 94/233*5 



- 507 . 



PCT/GBV4/00677 



5 



i 



1 

o 



CD 

QC 
O 
X 

a 



QC 

o 

X 

a. 

o 

03 



a 



H- DL 

CO o 

0 CD 

CD. 



ca 



CO ^ 



tn O 



5* 



CD 



tr 

A CO 



o 
<: 



A <o 



o Et 
ZE ^ co z 



i 



■ » 

i „ 



LU 



0 

o 



u. A is O O oj ui 



o 
o 



>- 

UJ 
A Q 



I CD 

u.'5" 

a 

S JL 

i£ 

«& 

It 

c o 



a 

Lit 
CD 



WO 94/2J3S5 



■ 508 - 



PCT/CB94/006T7 



o 2 

S -2 

S 5_ 

UJ J? 
_ , CO -S T> 

uj "9 B uj o 
uj ~ a O uj uj 

198 



at 



5 



LU 



5 UJ ~ 
W ^ O >-s 



UJ 



1 5 

_ . *o UJ _ 
>*o UJ O CO .5 
— m .T co < « .T 




I'COOU. 

uj uj i— O 



WO 94/23385 PCT/GB94/00677 

-509- 




WO 94/23385 



-510- 



PCT/GB94/00677 




WO 94/23385 



-511 - 



PCT/CB94/00677 




WO 94/23385 



•512 - 



PCT/GB94/006T7 



09 

5 



«5 S 
M_ 

LU Jo 
CO • = "O 

< .s 

O uj O 

Gu O UJ UJ 



o 

UJ 



UJ 

o 

O 
< 



Z UJ 

UJ Q 

it uj c 



• 



CO 

Is 

t* o 

&i 

E S 

E CM 
9 • 

a. E 

|? 

O o 

CP Q- 
£ CM 
w CO 

o « 

€0 

J E 

!•§ 

S c 
§ *3 

§1 

E 




— ' 0 

€9 

CO *, 

2 »J 

CD *C3 
CO CD 

9? t 

-JS 



If 



UJ 

o 



-5 

I 



5 



— » 



•5 
8. 

Is 

jfS2. 
z 8 8. 

O «(- 

UJ £ UJ 
to C -i 



E 



•8 

s 



f I 



si,- s, i- 

CP o ii 7 3 
t3 C C 

g £ f 8.1 



WO 



-513- 



PCT/GB94/00$77 



8 

E 



CO 



US 

3 g- 



11 

i 



UJ 

CO 

< UL 
O O 



J 5? 



If 

N 

UJ 

co u. 

2° 



a 

e 

9 



UJ O 

LLt UJ 



2 

CO 
UJ 



g 



* 



i e 



I 



I 



CO 

3 

3. 

f 

s. 



u 2 

go 

2 a 



°> S. 

cp co 



x 

3 

E 



8. 



I 



ST ** 



I! 



O 



I 

Q- . 

5 9 

O uj 



5 « 



8 



o 

*25 



O 
< 



co 



E 

e 

CO 

s. 

"3 
o 

CP 

I 

1 

3 



WO 94/233*5 



-514. 



PCT/GB94/00€T7 



CM 



CM 



S 5 E 



CO 



i 



cc m 

LU o 

S3 



LU 



O 

LU 
CO 



4» 

CO 

I* — 

" « cm jsr^jn 

CP g W 3 3 5^ 

E X x x x 

® H- 
£ LU 



"3 e 
E u 

II o 

S3 



i 

CM 
X 

CO 
X 

in 



o 

e 



X 

1 

S 
o 

X 
3 

E 
cp 



o x 

e | 

CO CM 

CO *. 

X CO 

ro in 

X x_ 

of 
S 



ii 

CM 
X 
3 

E 



a 



8. s/'S* 



■ 

CO 

3 

E 



s 

c 

CP 

u 




0> 



CO 

X 



X 

3 

E, 



< 

ii 

£ 

(0 



WO 94/23385 



-515- 



PCT/GB94/00677 




WO 94/233M 



- 516- 



PCT/GB94/00677 



CJ 




WO 94/23385 



- 517 - 



PCT/GB94/006T7 



Hp 

IS 

II 

CO CD 



c 

a & 



I 

0 

CO 

o' 
a 
< 

o 
< 



Ul 



2. 

E 

5 ? 



LU 



^ CO GO 



3 

cc 

o 

o 
< 



?! 

O 



1 

Ui 



UJ 

o 

■ • 

5 
3* 



a 55 



E 



o 

CO 



si 
in. 

it 

i S < 2- 



it i 

€0 



Q 8 



•5 12. 

Is 



• 2 



! 



a O 



o 

a 

o 



A CO 



O v si 



f 

CO. 



9 5 



? 

O 



O 



o 

LU 

cq 



5 

O uj 



8 

i 



j IB 



« 00 A 

-or:. 



%2 

CO S 



WO 94/23385 



- 518 - 



PCT/GB94/00677 



UJ 
CO 
— i 
UJ 

E 



u 

A 

E 



E 

3 

A 



111 
CO 
—I 
UJ 

E 
z 

ui 

A 

E 



So' 

55 

CD CD 



CO 

_8 



o o 
o o 

c e 

-a z 
o o 

■ ■ < 



CM 

f 

I 

O CD 
JO ~ 

CO 



f 

O 



■B o i_ »- o 

£8(3 85 



UJ 

3 

UJ 

S 1 



£ 

o 



f 
5 



o 



o 
o 



3* 

z 

c 

* * 

s. 

E 
| 



73 

CO 



52- a 
a • 



CO 

a 1 
a 

o 



5 

A 

E 



ar 2 

5 5 

UJ 
UJ 

E 



UJ 



< 



O 

UJ 
CD 



is 3 33 

.CD 
"co 



s 

A 

E 

3 



UJ 
UJ 

E 

z 

UJ 



A 

E 



2i 

-S o 



UJ 

CO 



5 



5! 



8 

E 

3 

A 

E 

£o 

_ 18 

_ ED H; — 
UJ e 2Lt=s 

hi 

3 



-T tU UJ 

2 £3 



E ? X 
-JL^ E 

si| 

O O S 

U. -3 A 



m 



o S. 



WO 94/233*5 



-519- 



PCT/GB94/006T7 



CD 

A 



CM 

5 

I 

CD 



LU 

f3 

UJ 

E 

2 

A 

E 



g 

a 

n: 

c 

LU 

53 

UJ 

E 
ui 

s 

E 

3* 



co 

5 

o 



o 

UJ 



* * 

S 

-§ 

E 



UJ 



UJ 

if 

A 

E 



CO 



E 

CO 



CO 
0 

5 



A 



3 

o 

o 
< 



o 

UJ 
CD 



UJ 



CO. 



E *» 

UJ 

5 

E 

LU 
LU 



O CO 



UJ 

53 

LU 

E 
Z 

LU 
£ 

sE. E 
E 

3 



LU 

CO 

LU 
E 

LU 

A 

E 



22 

w O 



UJ 

3 

E 

LU 

s 



LU 

E. 

S 

E 



LU 

E 
f 

A 

E 
it 

"3 - 



J5 



* Lu 

iii E 

f 2 E 

i f 3 

U. h UJ 

W it 5 



* S3* 



5 u 

= A 

E 



m 

E 

3 



si 



UJ 

f 

E 




o o A 



III 

a. ZL 
»— ;T 

o sl 



a 

UI 



2. 

5 



1 
s 



3 

8 

E 



o 



a 

LU 
CD 



WO 94/73385 



- 520- 



PCT/GB94/00677 



2 

CO 

E 

CD 

£ 

CO 

<2 



o 

e 




40 

o 

= S 
" x> 

— n 

CD CO 

« E E 



O O O 



CO. 



CD 
E 



1 



mis 



IS 



CO 
L±J 



CO 

5 




CP 

> 
CM 



-fl 

ill 



CO 

I 

a- 



CO 

.8- 

5-3 to 
•- «a » * 



6* 
§ 



3 



^ S 80 

(C •*£ C/3 < 

=r« ul _j co 

• § O uj uj 



E O 



8 

CO 

CD 

lio 

0! S 

t) w 
e < 

E 0 

s s 

3 

CP 



WO 94/23385 



- 521 - 



PCT/GB91/00677 




WO 94/233S5 



- 522 - 



PCT/GB94/006T7 




WO 94/233S5 



- 523 - 



PCT/GB94/00677 




WO 94/23385 



- 524 . 



PCT/CB94/006T7 




WO 94/233SS 



- 525 - 



PCT/GB94/00677 



cr 

O 
u. 

CO 



Ql 

o 

CD 



if 

p CO 

JO 



Ui 



LU 
CO 



12 

o 



2 Q 
o 

CO 



CB 



CD « 

< . CO. 

2 £ 



A 
>- 
CE 
kX 

g 

O 
< 



A 
i 



Ui 

o 

• • 

5 

cc 

CO 



ti 



o 

CD 

O 



•P. 



g 



2T.E 

S UJ 
cc CO 

55 o 



S»2j . 
** iu Q 

O uj ui 



t 1 

CD 

O 



A 



■s2- 

jS O O uj ui 



WO 94/23385 PCT/CB94/00677 

- 526 - 




WO 94/23385 PCT/GB94/00477 

- 527 - 




WO 94/23385 



- 528 - 



PCT/GB91/00677 



5 



c 
25 
o 



1 



3.UJ 

-,<u. 

slo O 

n 
-j 

O 

O 



s 

UJ 



i I 

£C O 

5 

o 
o 

m 



UJ 



UJ 



CM 
UJ 

CO CO CO CO 



5£ 



3 



D ~i -i -i 
^ 7 * * 



If 
t 

8 



is 

C UJ HI 

t, o UJ 
z ~ 

uj F 



S O 
O 2 

o u. 



CO 
CM 



5 | 

li 

» E 

I* 



CM 



- 'SSL 



lit 
Si 

0 GC 
2 < 

© 

CO 



o 

2 



c 

UJ 

CO 
UJ 



WO 94/23M5 PCT/GB94/0WT7 

-529- 




WO 94/23385 PCT/GB94/00677 

- 530 - 




WO 9*233*5 PCT/GB94/006T7 

- 531 - 




WO 94/23385 PCT/C B94/0W77 

- 532 - 




WO 94723385 PCT/GB94/0W77 

-533 - 




WO 94/23345 



- 534 - 



PCT/CB94/006T7 




WO 94/23385 PCT/GB94/00677 

- 535 - 




WO 94/233M 



- 536 - 



PCT/GB94/006T7 




WO 94/23385 



- 537 - 



PCT/CB94/WK77 




WO 34/23335 PCT/GB94/00677 

- 538 - 




WO 94/233B5 PCT/GB94/006T7 

- 539 - 



APPEKDIX B-2 



WO 94/23385 



- 540 - 



PCT/CB94/00677 




WO 94/23385 



-541 - 



PCT/GB94/006T7 




WO 94/23385 



- 542 - 



PCT/CB94/00677 




WO 94/23385 



- 543 - 



PCT/GB94/006T7 




WO 94/23385 



- 544 - 



PCT/GB94/00677 




• 

s 



5 

4> 



i 



1 



5 



8 



1 

C 

8 



1 



1 



S 



as 

ri 3 Z 



10 



5 



WO 94/25385 



- 545 - 



PCT/CB94/006T7 




WO 94/23385 



- 546 - 



PCT7CB94/WK77 




WO 94/23385 



- 547 - 



PCT/GB94/0WT7 



UJ 



I 



111 



it 



5 



ft 

jjljjl 

CO CO 



CD 



LI 



88 



11 



i ri 



2* 



S3 



8 



5 



u. 



Ul . 

"8 

UJ 



s 
s 

g 



HI 
CD 



Ml 
'fj ^ 

" u- 53 S 

2 O uj UJ 



*8 



Ul 



1.U.S* 



8 



»b 



SS E 




I 



I 



"8 

o 
c 

o 1 

?l 1 



■ 



CM 

! 



i 



T 



5 s 



5«t 

I. 



O 



a 
8 



I 



i * 

£ CO 



WO 94/23385 



- 548 - 



PCT/GB94/00€T7 




WO 94/233« PCT/CW4*0«77 

• 549 - 




WO 94/23385 PCT/CB94/W* 

- 550- 




WO 94/23385 



- 551 - 



PCT/GB94/00677 




PCT/CB94/00677 

WO 94/23385 

- 552 - 




WO 94/23385 



- 553 - 



PCT/GB94/00677 





1 



WO 94/23385 PCT/GB94/0M77 

- 555 - 




WO 94/23335 



- 556 - 



PCT/GB94/006T7 




WO 94/23385 



- 557 - 



PCT/GB94/WW77 




WO 94/23385 



• 558 - 



PCT/CB94/006T7 




WO 94/23385 PCT/GB94/006T7 

- 559 - 




WO 94/233*5 



- 560- 



PCT/GB94/0W77 




WO 94/23385 



- 561 - 



PCT/GB94/006T7 




WO 94/23385 PCT/GB94/WK77 

- 562 - 




WO 94/23385 PCT/GB94/0WT7 

- 563 - 




WO 94723315 



- 564 . 



PCT/GB94/006T7 




WO 94/23385 



- 565 - 



PCT/GB94/00677 




WO 94/23385 PCT/GB94/00677 

- 566 - 



WO 94/23385 



PCT/GB94/00677 




WO 94/23385 



- 568 - 



PCT/GB94/0WT? 




WO 94/223*3 



- 569 - 



PCT/CB94/00677 




WO 94/23385 



PCT/GB94/ 00677 

-570- 




WO 94/222B5 



-571 - 



PCT/GB94/006T7 




WO 94/23385 



- 572 - 



PCT/GB94/00677 



w 

A 



O 

cr 

ID 
M 



s i 

LU O 

LU LU 



0) 

J 



i 
1 



"5 
o, 



I 



5 

OujS 



CD 



5 
c 

09 

ro 



f, 

A 




UiO 

Q. CO f/5 
-Z < LL _j CO 

gaoiiiiu 



CO 
A 



10 



CO 
II 



CO 



CD 



CO 

I 

5 i 

CD 



to, * 
co *= 

CM 

CO « 

ts 

■y to tU h I J < Z 



CO 

CM Jg 

i £ 

T g 



JO 

CM 
CO, 

CD 

i 



«5 



3* 
cc 

i 




co o >. 

LL CD — J 



WO 94/23385 



• 573 - 



PCT/GB94/0W77 



s s s 

W V) w 

III 

CNJ CM CNJ 



WW «M WNf 

l l Si 

ifl v> w g 

IIIi 

co co. co co 



©_ q, q. o. 




* 

in 
til 

3£ 



1:8 



10 - 



(f) e o w 

£ib S ESE 



O 
U 

.■6 

CO 



UJ 

O UJ 



1 

UJ 



UJ CNJ U 

f S2 



o S 



o 
co 



£ «?Tujdcr 



11 

1 

-a' 

CO 



u. 
O 



r 



1 



UJ o 

UJ UJ g 
co 



UJ 
UJ 



Ma 

uj 3 



CM r CQ. 

o o 



CM T», 



mo r cm. 

o P. c - ^. 

£ESS 

°. c c . c 

cm co, ur 



in 

151 fill %55& 



^: ^ 75 ^ 

0* -5- CO 05 

CD JO C S 

S^uT iu 
oogg 

8§ 

eft 2 



S5i ~ c7 en" "Z=" ^ *c "E* 5? 



T 3 Jl JL 

P=«E=« 



CD CD CD CD 



CM CO 



sit; 



o 



'x'x' 



XX X X 



(O IO (O (D 



■S "35 5? 

« n 2 

£ g p 

IS CO rn 
UJ UJ Jjj 

O O o 
C» * I© 



w n ▼ 
^ 1 ^ 

2 3 3 

III 
111 

w 2 ; 

ill 

CO CO CO. 



<0 CD C0 

x x x 



cMDcnTUTr cucrr ^qi n c op 



WO 94/23345 



- 574 . 



PCT/GB94/0W77 



to 

JP 

to 

a 

E 

co 

I 

g 



o 

177 

O 

| 

<o 



0 m "S 
IO M (fl 



"93 c c c 

£S) • • • 

^? £ jI j£ ji 

Q» & =. C=- 



CD 

JL 



CO 



co 



CC 

CO 
CO 

CO 



ft 



CD 

X 



CO «A 



= 2 — 5- 

: C7) cq 



"IT S b £, 
~ *F co CM 



CD CD CD CD 



_ CC CC CC 

8C0 CO JO 

So u o 

2 O O O 



5" g* 5 888 



CC 

CD 

2-obb 

cc V % % 

CO cnj co s. 

£5- 5-5- 

co cc cc cr 

CO CD CO CO 
X X X X 



CC C QC CC 
CO CO CO CO 

pr pr pr h» 

5225? 
o o o o 

8888 



m co N" £D 

25" 5" 5* 5* 
cc cc cc cc 

co <s to CO 
X X X X 



pppp 



x'x'x'x' 



x'x'x' 



o 
z 

LU 



CD 



CO 

52 
o 



I 

A 



•ft 
2 

o 

i 



8 



CO 

S 



X3 



i- is 



si 

II 

li 

it 

is EE 

CO u. 

ja x 
.s z 



WO 94/23385 



- 575 - 



PCT/GB94/00«77 




WO 94/223*5 



- 576 - 



PCT/CB94/00677 




c( iqctiti iTr cucrr mm F 



WO 94/23385 PCT/GB5W/00677 

- 577 - 




/fM it r or* 



WO 94/23385 



- 578 - 



PCT/GB94/00677 




pmdctitmtc cucrT fPlfl c 



WO 94/233S5 



-579 - 



PCT/GB94/00677 




WO 94/23385 PCT/GB94/0W77 

- 580 - 




CIIOCTITI1TC CUCCT fRIII.F ">K\ 



WO 94/233« PCT/GBW/00677 

- 581 - 




WO 94/23385 PCT/GB94/00677 

- 582 - 



f 

9 

5 

s 



'i 

UJ 

32 



* 




UJ .s -S s o 



8ISo 



CO 
UJ 



• * * _5 



g co 
< < u. 
s a o 



CO 
LU 



£ O O ai uj 



WO 94/21385 



- 583 - 



PCT/GB94/00677 



o 



i 

A 



5 uj 5; 5 o" 

< tO < 
2 < LL *-09 
LL U O UJ 



8 

a «f 1 

£ LU _ 
O Cfl S < 
Z < U. XI w 

LI U O «=»UJ 



*5* 



a 

» § 



II 

UJ 



LU 
O 

5 



s 

1. 



St 

8iQ CD 

fQ < UJ 



•25 

£8 



Z UJ 5 O UJ LU 



2 5 Z 



Lu 



US 



O LU 



i 

u 

UJ -s 

11 i 

io ° 



SUBSTITUTE SHEET (RULE 26) 



WO 94/233*5 PCT/GB94/0WT7 

- 584 - 




t-n rr purrr mi n C *5C^ 



WO 94/23385 



- 585 - 



PCT/GB94/00677 



1 s 



I'll 

D- U- qj I 

2 



3 



in 

UJZUL 

a. uJ o 

sis 

°- it UJ 

2 



s 

cd 



E 

s 



I 



8 LU 

c 12. 

CD — 



fl' 

il 



o 2 



I 



.8 

•S3 

.£ $ 
is a> 



2 f 

Si. 

is' 



co 



s 



e 

8 . 

5?. 

if 

EE a-p 
o z -g 



co 



ii 

51 

c CO 

5 s. 

X s 

CD 

"8 



M 5 

3E CD 




WO 94/233SS 



- 586 - 



PCT/CB94/006T7 




WO 94/23385 PCT/GB94/00677 



- 587 - 




• 588 - 



PCT/GB94/ 00677 




CMDCTiTtnr cucct (PHI r of\\ 



WO 94/23385 PCT/GB94/006T7 



- 589 - 




WO 94/23385 PCT7GB94/00677 

- 590- 




WO 94/23385 



-591 . 



PCT/GB94/0W77 




WO 94/23385 



PCT/GB94/00677 



- 592 - 




CI IQCTITI ITC CUCFT ( Rl fl F 



WO 94/23385 



- 593 - 



PCT/GB94/00677 



1 

I 



9. _ 

all 

o o> - 



2.— co 



CO 



CM, 

to 



a 
S3 

II 



3 



Is a | s 

S£"§co = 

i ".i" ' 

iiii 



.1 



§' I il 5,5 8,183 1- 

-J % H _is 5 z t 



i 



8 

f 



1 

CO 




S ui I fiJ t 



a 
o 



«,g uj'E SS.S. 

85g&8§3!fc5 

<ZHlSOffiOO 



LU 
CD 



I 



5 



I 



i. 



« t3 TS U 



CD J£ _ w 

llli g I 

c o c o E o. a. 



ttt irrr /nf ft C 0C\ 



WO 94/23385 



- 594 . 



PCT/CB94/00677 




WO 94/23385 PCT/GB94/00677 

- 595 - 




WO 94/23385 



- 596 - 



PCT/CB94/00677 




WO 94/23385 



- 597 - 



PCT/GB94/00677 




WO 94/Z3385 



- 598 - 



PCT/GB94/00677 




WO 94/233S5 



PCT/GB94/00677 



• 599- 



i 



s 

i 



I 

A 

f 

s 



CD 

z 

i 



il 



E 



g CA 



Jig 



o >c 



■S is .o 




I 



-si* 



i 

i 

O 
W 

S 



II 

I 



1 



ii 

5 CO 



1 

I 



£3 



p p p p g § g 

88g§§i8. 

nT 5* £2* iS iS 3 3 S u. 



I 



* 

I 

© 



u • 



a 

5 



WO 94/23385 



- 600- 



PCT/GB94/006T7 




WO H/233A5 PCT/CW4AXXT7 

- 601 - 




CI IOCT1TI ITT CUCCT /W 11 P 



WO 94/23JSJ 



- 602 - 



PCT/CB94/006T7 




rnorTITIITT cucct /Din C 



WO 94/222U 



-603 - 



PCT/CB94/006T7 



A 



-E 



i 



82. 



OJ 



III 1 . 



1 

•5 
1 



If 



T 



09 



CO 

2s 



Si 

88< 
55 



eg, 

I 
f 



:«5 



d 1 ^ a h 

Z jo 2 UJ UJ 
UJ «£ U. ffi -J 



cow, "i: 

O O 3 ■ 

l» II < - 

j 



3 ° 
O 2 



£ as 

I § 

a 'b 

1 5 

5 s 



f 



CO 



i 



E 

5 



■ 

d 



N 



ii 



87 « ( 



ci ipctiti nr swppt /ri n F 



WO 



- 604 - 



PCT/CB94/0OS77 




WO *4f223S5 



- 605 - 



PCT/CB94/W*77 




WO J4/233S5 



- 606 - 



PCT/GB94/006T? 




WO 94/233*5 



- 607 - 



PCT/GB94/006T7 




rnocTmnr ^mpPT fRULE 2ffl 



WO 94/2J315 



- 608 - 



PCT/GB94/0W77 




ei idctvti rrr eucrr jqi p c <xr\ 



- 609 - 



PCT/GB>4/00677 



t|!f 

to ^* 

ill 



_ « 

III 

?5 



1 

i 



111 



S 



a 



0 

S 
2 



a 

Q. 



CO 

» « 

UJ 



u 

is 

Q 



lit 



II 

o 



O 



UJ 



u 



Hi 



n 




SUBSTITUTE SHEET (RULE 261 



WO 94/23343 PCT/CB94/WX77 

- 610 - 




WO 94/213S5 



-611 - 



PCT/GB94/00677 



i 



E 

i 

1 i 



§ I & sa 



s 



I 



S o 



II 

CO CO 

OQ 

UJ LU 

< S 

s s 



I 1 1 



I 

CD 



e 



ii 



I 
5 



cr 



a o o 



I 



f. 

o 
S 
& 



I 

8* 



5* 

z 
2 

& 
n . 

uj'uj 



s s — 

§.§.2 



3 



I 



f * 

1 § 



CO 



WO 94/23385 



- 612 • 



PCT/GB*4/0©677 




WO MA33S5 



- 613 - 



PCT/GB*f00$77 




ci locTm rrc shfft fRULE 26) 



WO 94/23385 



- 6J4 . 



PCT/GBS4/00677 




ct iocttti itt cucrr tot fl c ^as 



WO 94/23315 



PCT/GBS4/WK77 



-615- 



CO 

A 



CO 
A 



<o co 

II UJ 

s-s 

UJ UJ 

z z 

o o- 
< Q 
2 m 



3 

E 



i 

• 

I 



a 

II 
CO 



CO. 



•CO 

< 2 

2 S 



2 5 ;| 
oi -I go 



if 

ti 




S2. a 05. 
ii 



8 



a Q 
3 9 

2 s 



O E *S o 



f 

5 



ii 




a a 



CO. 



CO. 



CL 

S 

CO 



SUBSTITUTE SHEET (RULE 26) 



WO 94/23385 PCT/GB94/00677 

-616- 




WO 94/21345 



• 617 - 



PCT/GB94/WH77 




SUBSTITUTE SHEET (RULE 26) 



WO W/23J85 



- 618 • 



PCT/GB94/0W77 



^ - uj o n UJ * uj o 
OOujujSOOuj 



«2 



II 

Is 



§ 



_ 8 

if 33 



5 

2 siO 



ui 



__3 



"8 



8 



s 



CD 

8 

ICS 
0) 




SI JRSTmJTF SHFFT /RULF ?m 



WO 94/2HU 



- 619- 



PCT/CB94/00677 




SUBSTITUTE SHEET (RULE 26) 



WO 94/233*5 



- 620 - 



PCT/GB94/006T7 




WO 94,23385 



-621 - 



PCT/GB94/00677 




SUBSTITUTE SHEET (RULE 26) 



PCT/GB94/006T' 

WO 94/23385 

- 622 - 




cmoctitiitc <WFFT (RULE 261 



WO 94/23385 



- 623 - 



PCT/GB94.'00«T' 




ciiocTmrrr SHFFT (RULE 26) 



WO 94/23U5 



- 624 - 



PCT/GB94/<XK77 




SUBSTITUTE SHEET (RULE 26) 



WO 94/233A5 



- 625 - 



PCT/GB94/00677 



5 



15 

o 




« i 



k8 15 =r 



A 



o 



S 3d 



UJ 




WO W/23385 



- 626 - 



PCT/GW4/0O6 




SUBSTITUTE SHEET (RULE 26) 



I 



WO 94/233*5 



PCT/CB94/00677 




WO 94/23385 



- 628 - 



PCT/GB*f00677 




SUBSTITUTE SHEET (RULE 26) 



WO 94/23385 



• 629 - 



PCI7GB94/WK77 




SUBSTITUTE SHEET (RULE 25) 



WO 94/233*5 PCT/CB94/CXK77 

- 630 - 



CO. 



5? 



s 



31 



•iff' 



.5 

s 



g 

■5 
LU 

2 





E 

s. 



I 





LU 



SUBSTITUTE SHEET (RULE 261 



WO 94/23385 



-631 - 



PCT/GB94/006T7 




ciiocTmnr cucrr /out c on 



WO 94/23385 



- 632 - 



PCT/GB94/00677 




SUBSTITUTE SHEET (RULE 26) 



WO 94/233M 



- 633 - 



PCT/GB94/00€77 




SUBSTITUTE SHEET (RULE 2B> 




SUBSTITUTE SHEET (RULE 26) 



WO 94/23385 

- 635- 



PCT/GB94/0WT7 




WO 94/23385 



- 636 - 



PCT/CB94/0W77 




SUBSTITUTE SHEET (RULE 26) 



WO 94/23385 



- 637 - 



PCT/GB94/00477 




SUBSTITUTE SHEET (RULE 26) 



WO 94/23385 



- 638 - 



PCT/CB94/00677 




SUBSTITUTE SHEET (RULE 26) 



WO 94/23385 



- 639 - 



PCT/CB94/00677 




SUBSTITUTE SHEET (RULE 261 



WO 94/23385 



- 640 - 



PCT/GB94/00677 




SUBSTITUTE SHEET (RULE 26) 



WO 94/23385 



- 641 • 



PCT/GB94/0W77 




SUBSTITUTE SHEET (RULE 26) 



WO 94/23385 



- 642 - 



PCT/GB94/00677 




cnpcrmnr currr mm c oen 



WO 94/233M 

PCT/GB*4/00€77 

- 643 . 



to' % 



> 

i 



1 I 



S 

UJ 



O UJ 



SUBST1TUTF SHEFT (RULE ?R 



WO 94/23385 



• 644 . 



PCT/GB94/0O677 



APPENDIX C 



SUBSTITUTE SHEET (RULE 261 



WO 94/23385 

? / 2 * / 9 3 3:jy pm 



- 645 - 

Engineering: KiicsCode:CcntpPicc : Tsp. a 



PCT/CB94/WK77 



© Copyright 1992 KLICS Limited 
All rights reserved. 

wr:::en by* Adrian Lewis 



630X0 7ast Tcp Octave 

' klics 



seg 

macro 
TOPX 

swap 
move . w 
neg . w 
add.w 
add. v 
swap 
move . 1 

endm 



&DG. &KG. &old. (XX 
&HG 

aDG, &XX 
&DG 

&HG.&DG 
&XX,&HG 
iHG 

iDC.&cld 



HG=G1H0 

XX=G0 

DG=D{-G0) 

DG=DD 

HG=G1D 

HG=DG1 

save DD 



macro 
TOPY 

move . 1 
move. 1 
move . 1 
add.l 
sub.l 



&HG0. &nev0, &HG1. *newl, iXX 



&nevO.&XX 
inevl, tHGl 
&HG1.&HG0 
&XX.&HG1 
&XX.iHC0 



; read HG 

; read HC 

; copy HG 

; nevlsHlGI 

; nevO=HOG0 



endm 






macro 






TOPBLOCX 


&DC0, &HG0, &nevO, &©ld0. 


&DG1, &KG1. 


TOPY 


&HC0 , inewO , 4HG1 , tnowl , tXX 




TOPX 


&DG0. LHGO, &old0, tXX 




TOPX 


&DG1 , &HG1 , &0ldl , &XX 




endm 






macro 






TOPH 


&D5, iHG, tnev, (old, &XX 




move . 1 


inew, &HG 




TOPX 


&DG.4ilG,tOld,tXX 




endm 






macro 






TOPE 


tDG, told, &XX 




move. 1 


LCG.LXX 


XX-DG 


swap 


4 XX 


XXeGD 


move. w 


tXX, 4 DC 


DGsDD 


move. 1 


&DG.&old 


save DD 



SUBSTITUTE SHEET (RULE 26) 



WO 94/23385 



PCT/CB94/0O6T7 



- 646 - 

Engineering: KlicsCcde :CcrnpPicc :Tcp. a 



rS 

src 
dst 

r.eicht 



0dol 



0do2 



6dc2 



0do4 



endn 






rvric 


£X?CRT 




ricoru 

DS . 1 
"S.L 


8 

I 

1 
i 

• 




link 
movem. 2 


a6. »0 

d4-d7/a3-a5. -<a7) 


; no local variables 
; stcie registers 


moved . 1 
move . i 
move . 1 
move . 1 
move. 1 


P5.src(a6) . aO 
PS. height (a6i .d7 
ps . width ( as ) , do 
aO.al 

PS.dst (a6) .al 


; read src 
; read height 
; read width 

; read dst 


move. I 
add.l 
move. 1 


d€.d5 
d5.d5 
d5.a4 


; inc « width 
; inc • *2 
; save inc 


lsr.l 
suisq. 1 


• l.d7 

• 2.d7 


; height /s2 
; height -»2 


lar.l 
subq.l 


• 2.d6 

• 2.d6 


: width/ «4 
; width-s2 


move. 1 
move. 1 


d6.dS 
(aO)*,dO 


; ccounc »width 
; dCU^newO*-* 


TOPH 

TOPH 

dbf 

TOPH 

TOPE 


dO.dl. (a0>*. ial)*,d4 
dl.dO, <a0>*, <ai)*.d4 
dS.Sdol 

dO,dl, taO)*, (al)*.d4 
dl. lali^.d* 


; while - 1 ! »- -ccount 


move. 1 
move. 1 
adda.l 
adda.l 
move . 1 
TOPY 


a0.a2 
ai.*3 
a4,a0 
a4. al 
d6.dS 

d2. U2)*,d0. (a0»*,d4 


; newO«newl 
; oldOsoldl 
; new 1* « inc 
; oldl^ainc 
; ccounc -width 


TOPBLOCX 
TOFBLOCX 
dbf 


d2.d3. (a2)*. <a3)*.d0.dl. <a0>*. (al)*.d4 
d3.d2. *a2)*. <a3)*.dl.d0. <a0)*. <al)*,d4 
d5.9do3 ; while -l : =--ccount 


TOPBLOCK 
TOPE 
TOFE 
dbf 


d2.d3. ;a2)*. <«3>*.d0.dl, <a0>*. <alW.d4 
dl. <al)*.d4 
d3, <a3U.d4 

d7,«d©2 ; while -l!=--beight 


move. 1 
add.l 


d6,d5 
•l,d5 


; ccount»width 
; dO» - newO** 


move. 1 
move. 1 
dbf 


(a3)*, (all* 
<a3l*. i*D- 
dS.9do4 


; copy prev line 

; while -l!»--ccouat 


movem. 1 


<a7)*,d4-d7/a3-a5 


; restore registers 
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unlk a * ; remove locals 

; return 

ENDFUNC 
ETC 
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680X0 Tatle Loocjp RGB/YUV code 



machine 
seg 



MC68030 
'Klics' 



if tTYPE ( ■ 8 eg * I # • UNDEFINED' then 



seg 
endif 

MKTABLE FUNC 

PS RECOXD 
Table DS.L 
ENDR 

link 

move . 1 
clr.l 
SMakeLoop 

move.w 

move. 1 
move.w 

add. w 
add. v 

lsr . v 
move . w 
move . w 

add. v 
move . w 
add.w 
add. v 
aar . w 
sub. w 

lsr .w 
move . w 
move .w 

add.w 
crap . w 
bne 

move . 1 

clx.l 
CMakeNegLoop 

move.w 

move .w 



4seg 



EXPORT 
8 



a6, tO 

d4-d7/a3-a5. -(a7> 

PS.Tableia6) ,a0 
dO 

♦ 512, dl 

d0.d2 
d2,d3 

d2.d2 
dl,d2 

*2.d2 
d2. (a0) + 
d2, (a0) + 

d3.d3 
d3.d2 
d3.d3 
d2.d3 
M,d3 
d3.dl 

*2.dl 

dl. iaOU 
dl. (a0) + 

#l.d0 

*S0200.dO 

0HaJceLoop 

•$00000200. dO 
44 

1312. dl 
d0.d2 



; score registers 

.•Table is (long) <2U*S12) ( long) ( 512 - (6 
;U value 

;512 

;U 
;0 

:20 

;20 ♦ 512- 



Place 1st word 
Place 2nd word 

2U 
2U 
4V 
€U 

6U/16 

312 - (6U/16) 



Place 1st word 
■ Place 2nd word 



;U value 

;512 
;0 
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or .v 
novt . w 

add. v 
add. w 

asr . v 
rncve . w 
movi . w 
add. w 
move. v 
add. v 
add.v 
asr .v 
sub. v 

asr .v 
move . v 
move. v 

add.l 
add. I 
crop . w 
bne 

mo vera . 1 

unlX 

res 

ENDFUNC 



macro 
FIXOV 

move.w 

clr.b 

andi.w 

sne 

best 

seq 

or.b 

and. v 

swap 

move . w 

clr.b 

andi.w 

sne 

bese 

seq 

or.b 

and. v 

swap 

endm 



^SFC00.d2 
d3.d3 

d2.d2 
dl,d2 

•2. 12 

22, <a0)* 

z2, laO) * 

d3.d3 

d3.d2 

d3.d3 

d2.d3 

M.d3 

d3.dl 

»2,dl 
dl. (aOJ ♦ 
dl. (a0) + 

II. dO 
• l.d4 
•S0200,d4 
eMaXeWegLoop 

(a7)*.d4-d7/a3-a5 
a6 



;0 

;2U 
;2U 



512 



Place 1st word 

Place 2nd word 

2U 

2U 

4U 

6U 

6U/16 

512 - (60/16) 



.-Place 1st word 
.-Place 2nd word 



restore registers 
remove locals 
return 



iV, ISV1, &5P2 

iV.aSPl 
tSPl 

•S3PfT.4SPl 
&SP1 

•13.4SF1 

4SF2 

4SF1.4V 

4SP2.4V 

*V 

4V.4SP1 
&SP1 

*S3rFF,6SPl 
4SP1 

#13.*SP1 

4SF2 

*SF1,*V 

tSP2,4V 

6V 



if 4 TYPE ( *se0' ) « ' UNDff*INED * then 

3 eg kamg 

•ndif 



YUV2RGB4 
« 

PS 

Table 



TUNC 



RECORD 

DS.L 



EXPORT 

8 

1 
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^ 1 


I 


nc r 


1 






1 


J 


^5 . L 


* 

1 


area 


jS. L 


I 


width 


OS. 1 


1 


cols 


3S.L 


i 


* 








RECORD 


0 , DECK 


:nc 


DS.L 


1 


width 


DS.L 




lend 


DS.L 




count 


DS.L 


1 


LSne 


EOU 


* 




ENDR 





•void YUVtoRCBiPtr TablePtr.Iong •pixmap, short -Yc. short 'Uc. shore •Vc. lene area.l 

•long inc. lwxdth. fend. count; 

aO - Y0. al - Yl, a2 - 0. a3 - V. a4 - pmO, aS - pral 
d0..6 - used. d7 - count 



link a6,tLS.LSiz« 

movem.l d0-d7/a0-a5. - <a7) 

mcve.l PS.pijanap(a€) , a4 

move.l a4,a5 

move.l PS.Y(e6).aO 

move.l aO.al 

move.l FS.U(a6).a2 

move.l PS.V(a6).a3 

move.l PS.area(a6) ,d7 

lsl.l S2.d7 

add.l a4,d7 

move.l d7,LS.fend(a6) 

move.l PS.width(a«) .d5 

move .1 d5 . d7 

aar.l «l.d7 

subq.l »l,d7 

move.l d7. ps.vidth(a6) 

add.l d5.d5 

add.l dS.al 

add.l dS.d5 

move. 1 d3. LS. vidth(a6) 

move.l PS. cols 1*6) ,d4 

lsl.l 12. d4 

add.l d4,aS 

add.l d4.d4 

sub.l d5.d4 

move.l d4.LS.inc(a6) 

move.l *6,-<sp) 

move.l PS. Table (a6).«6 

Colors wanted are: 

R£D * (Y ♦ 2V ♦ 512) / 4 

GR£OI * (Y - V ♦ 512 • (60/16)) / 

BLUE • (Y ♦ 20 * 512) / 4 



save locals 
store registers 

pmOspixmap 

pmlapmO 

YOsYC 

YlaYO 

U.UC 

V.VC 

! end* axe a 

2end«a2 
f end* aprnO 
save fend 
widthsvidth 
count -width 
count>>«! 
count -si 
save width 

width*=2 
Yl**width 
width'o2 
save width 

incrcols 
inc««2 
pml*« inc 
cols*s2 

inc now 2 •cols-width bytes 
save inc 



OTable part is for 
tfT able part is tor 
UTable part is tor 



(2V * 512) 
(512 - (60 
(20 * 312) 



uv2r7b »V*~t 
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dl • n 

mcve . v 
bee 
and. * 
move . 1 
move . 1 

move . i 
•DidQuickU 

move . w 
beq 

move . w 
asr.w 
sub.w 
move. v 
swap 
move . v 
move . 1 

and. w 
move . 1 
move.l 
bra 



Engineering: KlicsCode:Ccmp?icc .-Table. a 
£2 - ca. d3 - ba. d4 - rb. d5 - gb/512. d6 - bb 

; U 



Ia2)*. d2 
SDcOuickU 
•S03FT.d2 

(a6.d2.w8) .d3 
d3.d6 

4<a6.c2.w8).d5 

(a3U,dl 

QDoCuicW 

dl.d4 

#2.dl 

dl.d5 

d5.d2 

d5 

d2.d5 
d5,d2 

•S03FF.d4 
(a6,d4.wB) ,d4 
d4,dl 
CTescEnd 



:SLUE.Cec (2U ♦ 512J/4 for Blue t (y « 
;Dup tor second pair 

;CREEN, Get (512 - i6U/16))/4 for Gree 

; v 

;if iero then handle using the Quick m 
;GREEN. Gee (312 - (6U/16) - V)/4 for • 

;Dup for second pair 

; RED, Get (2V ♦ 512) /4 for Red « (Y * 



; BLUE. Get (20 ♦ 512) /4 for Blue » (Y ♦ 
;Dup for second pair 

; GREEN, Get (512 - (60/16) )/4 for Gree: 



;GRE»1, Get (512 - (6U/16) - V)/4 for • 
; RED. Get (2V ♦ 512) /4 for Red « (Y ♦ 
;CXip for second pair 

CTestEnd 

; add Ya to RGB values - FETCHY (aO) ♦ , dO, dl. d2,d3 



move.l (aO)*,dO ;Y 

asr.w #2,dO 

swap dO 

asr.w #2. dO 

swap dO ; y i« -128 to *127 

add. I dO.dl ; RED, Get (Y* ?V ♦ 512) for Red • (Y ♦ 

add.l d0.d2 .CREQf. Get (Y ♦ (512 - (60/16)) - V) 

add.l d0.d3 ; BLUE, Get (Y ♦ (2U ♦ 512) for Blue » ( 

; add Yb to RGB values - FETCHY2 ( al ) * . dO . d4 . d5 , d6 

move.l (ai)*,dO ;Y 

asr.w »2.dO 

swap dO 

asr.w 12, dO 

swap dO ;Y is -128 to *127 

add.l d0,d4 ; rxd. Get (Y* 2V ♦ 512) for Red « (Y ♦ 

add.l dO.dS ; GREEN, Get (Y ♦ (512 - (6U/16)) - V) 

add.l d0,d6 ; BLUE, Get (Y ♦ (2U ♦ 512) for Blue « C 

move .1 dl . dO 

or.l d4,d0 

or.l d2.d0 

or.l d3,d0 

or.l d5,d0 



QDoOuickU 

move.l 
move. 1 
move.l 
bra 



CDoOuickV 

move.l 
move.l 
move.l 



♦S00800O80, d3 

d3,d6 

d3.d3 

«DidOuickU 



d5.d2 

#500800080. d4 
d4,dl 
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5ok 



or . 1 


„ dS.dO 


and.l 


• • • J . r vv i QU 


sr.e 


Sover 




ftwoa - ma RGB ui.u2.d. 


AS 1 . i 


• 8 . d2 


or . i 


c3 . tl 


tcvc . 1 


d.. d3 


swap 


d3 


move . w 


cL2 . d3 


swap 




move . w 


d2 .dl 


move . 1 


dl, (a4)~ 


move . 1 


d3 . (a4 ) * 


; save 


RGBfc - HKRGB d4 d5 dfi 


lsl.1 


• 8,d5 


oz.i 


dfi d5 


move . 1 


d4.d6 


swap 


d6 


move . v 


d5.d6 


swap 


d5 


move, w 


d3.d4 


move. 1 


d4, (a5U 


move . 1 


d6, <a5)* 


dbf 


d7.9do 


move. 1 


( sp ) * , a 6 


adda.l 


LS.inc(a6i , a4 


adda.l 


LS.incta6KaS 


adda.l 


LS. width («6) , aO 


exg.l 


aO.al 


move. 1 


PS.width(a6) ,d7 


cmpa. 1 


LS . f end ( a 6 ) , a4 


blew 


edo2 


mo vera. 1 


(a7)« ,dO-dVaO-a5 


unite 


a6 


rta 





over: low 



G^COCC 
G=GBGE 
BaOROR 
B»0R0R 
BsORCB 
GsGBCB 
RrORGB 
*RGB**» 



(12) 

(12) 

(12) 

(21) 

(2) 

(21) 

(1) 

rgb (1) 



•RGB**=rgb 12) 



G.GOGO 
G=GBGB 
B=0R0R 
B.OROR 
B=0RCB 
G=GBGB 
R.ORGB 



(12) 

(12) 

(12) 

(21) 

(2) 

(21) 

(1) 



•RCB*-srgb (1) 
•RGB*~*rgb (2) 

while 



pmO*»inc 

pral+einc 
yo^-width 
yi<->yo 
counc jwidth 
pmO< f encT 
while 

restore registers 
remove locals 



edo2 



move . 1 
move . 1 
bra 



a6. - (sp) 

PS .Table (a6) 

6 do 



a6 



return 



QFixIt 

btst 
beq 
and.l 
©DITopNotNeg 
btst 
beq 
and.l 
or. 1 

OOlTopNOtPOS 

btst 
beq 



•31. dO 

CDlTopNotNeg 

tsoooorrrr.dO 

#24. dO 

901TopNotPos 

♦soooorrrr.do 

•SOOFFOOOO.dO 



•15. dO 

CDlBotNotNeg 



;See if upper word went negative 
;Pin at zero 

;See if upper word went too positive 

.♦Mask old data out 
;New data is maxed 



.See if lower word went negat 



ive 
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and.l 


•srrrroooo.do 


eoiBotNccNeg 




btsc 


•fi.do 


b#q 


eOlBctNocPOS 


and. 1 


•SFPfTOOOO.dO 


or.l 


•SOOOOOOFF.dO 


SDlBctNotPos 


rta 





: KlicsCode.-ConpPic: :Table.a 
;Pin at zero 

;Se« if icwer word wenc :oo positi 

.Mask old data ouc 
;Ncw data is nvaxed 



Gover 



move . 1 


dl.dO 


bsr 




move . 1 


dO,dl 


move . 1 


d2.d0 


bsr 


•Fixlt 


move . 1 


d0,d2 


move . 1 


d3.d0 


bsr 


•Fixlc 


move. 1 


d0.d3 


rove, l 


d4.d0 


bsr 


AFixIt 


mov« . 1 


d0,d4 


move . 1 


dS.dO 


bsr 


OFixie 


move. 1 


d0.d5 


move. 1 


d6.d0 


bsr 


OFixIt 


move. 1 


d0.d6 


bra 


9ok 


ESVTVttC 




END 
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© Ccpyricht 1993 KtlCS Limited 
Ail righis reserved. 

Wr;t:«n by: Adrian Levis 



• 

$8000 Klics 

• 


w • a * » s. » ea 






seg 


M ICS 




KLCopy 
• 


ruwc 


cJsPORT 




KLCOPYishor 

• 


t # src. short 'dst. 


int area) ; 


PS 


RECORD 


8 




src 


DS.L 


1 




est 


DS.L 


i 
* 




end 


DS.L 


1 




• 


ENDR 






* 


linJc 


a6 . #0 


; no local variables 




move . 1 


PS.src(a6> .«0 


short •src 




rove . 1 


PS.dst (*6) ,al 


; short *asc 




move . 1 


PS.ead(a6) ,d3 


; long axe* 




lsr.l 


M.cU 


; in words (x6) 


3do 


subq.l 


• l.d3 


; are*-«l 


move. 1 


(a0)*, (ali* 


; *dst**8 , src** 




move . 1 


(*<>)♦. (ill* 


; •dst**»*src** 




move.l 


<a0>.», ul)-> 


; •d»t**» - src*'» 




move. 1 


HO)*, (el)* 


; •dst**»*src** 




move . X 


(a0)*. (al)-r 


; *dst**» - src*- 




.-nove . 1 


<*0>*. (al)* 


; •dst**»»src*» 




move . 1 


<a0>*. <al)* 


: # dst»*»"src** 




move: 1 


(iO)t, ial)* 


; *dat**«*src*« 


» 


dbf 


d3 . «do 


; if -li*--area goto dc 




unlk 


a6 


; remove locals 


• 


res 




; return 




ENDFUNC 






KLH* 1 f 


FUN'C 


EXPORT 





KLHALFtshort 'src, short # dst. long width, long height); 
Dimensions of dsc (width, height) are half that of src 



PS 


RXCORD 


e 




src 


DS.L 


i 




dst 


DS.L 


l 




width 


DS.L 


l 




height 


DS.L 


l 




• 


ENDR 








link 


a6. #0 


; no local variables 


* 


moven.l, 


d4.-(*7) 


; store registers 




move.l 


PS.srclab'l.aO 


; short *src 




move . 1 


PS.dst fa6i .al 


; short *dst 
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?do_y 



?do_x 



move . 1 


»FS. widcMa6) , d2 


move . 1 


FS. height ia6) .d3 


subq. 1 


• l.d3 


Tiove. i 


d2.d4 


iszA 


•2.d4 


subq.l 


H,d4 


rove . l 


laON.dO 


nove . w 


(aOU.dO 


addq.l 


• 2.a0 


nnv* 


aw . t ai j ♦ 


move . 1 


<aO)*.dO 


move. w 


<aO)*.dO 


addq.l 


#2,a0 


move . 1 


do, (al)* 


dbf 


d4 . Cdo_x 


adda 1 




adda.l 


d2.a0 


adda. 1 


d2,a0 


adda. 1 


d2.a0 


dbf 


d3.ido_y 


movetn. 1 


<*7)*,d4 


unlk 


a6 


res 




ENDFUNC 
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: long width 
: long height 
; height -si 
: countswidth 
: count / - 2 

count - = 1 

dO=»src** 

dJs'srcf ♦ 

src**l short 

•dst**=dO 

dOo # arc** 

d2»«6rc** 

src*=l short 

•dst**rdO 

if -l!=--widch goto do_x 
skip a quarter row 
skip a quarter row 
skip a quarter row 
skip a quarter row 
if -lis--heighc goto do_y 

restore registers 
remove locals 
return 



KLZero FUKC 



EXPORT 



KLZERO (short »data. iac area); 



PS 


RECORD 


8 


data 


DS.L 


1 


end 


DS.L 


1 


• 


DTOR 




• 


link 


a6.»0 




move. 1 


PS. data <a6) , aO 




move. 1 


PS.endiaC) ,d3 




lsr.l 


#3.d3 




suoq. 1 


il.d3 


9do 


clr.l 


(a0)» 




clr.l 


(aO)* 




clr.l 


iaO)* 




clr.l 


laO)* 


* 


dfcf 


d3 , fido 




unlk 


a6 


• 


rts 






EOTFUHC 




CLEAKA2 
• 


FTOC 


EXPORT 




move.l 


• 0,a2 




rts 





; no local variables 

; short *data 

; long area 

; in words (x4) 

; area-sl 

; *dat ♦♦••sro* 

; •dst**e»src*» 

; •dat*** # src*-» 

; *dat***»src** 

; it -l!*--area goto do 

; remove locals 
: return 



ENS 
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$ Copyright 1993 KLICS Limited 
All ngnts reserved. 



• Written 
• 


by: Adrian 


Lewis 




;/pedef pcract * 








ir-t 


bpf.in. 


/• 


User - 


Bytes per frame in input stream •/ 




cpf _cut . 


/• 


User - 


Bytes per frame in output stream •/ 




buf_sire; 


/• 


user - 


Buffer sire (bytes) •/ 


Boolean 


intra , 


/• 


Calc - 


Compression mode intra/inter •/ 




auto.Q. 


/• 


User - 


Automatic quantization for rate control 




buf _sw; 


/• 


User - 


Theoretical buffer on/off •/ 


float 


quant . 


/• 


User - 


Starting quantiser value */ 




thresh. 


/• 


User - 


Threshold factor */ 




corr^are, 


/• 


User - 


Comparison factor •/ 




base( 5] ; 


/• 


User - 


Octave weighting factors •/ 


:nt 


buffer. 


/* 


Calc - 


Current buffer fullnese (bytes) •/ 




prevbytes. 


/• 


Calc - 


Bytes sent last frame •/ 




prevquact ; 


/• 


Calc • 


Quantisation/activity for last frame •/ 


double 


trrp_quant : 


/• 


Calc - 


Current quantiser value quant */ 



) Klics££ataAec; 

typedef struct ( 

KlicsSeqHeader seqh; 

KlicsTrameHeader frnh; 

KlicsEDataftee encd; 

Buffer buf; 
} KlicsEftec. *RlicsC; 
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Written by: Adrian Lewis 



680X0 KlicsDecode code 

Fast code fcr: 

3/2 octave input stream 
2/1 octave output image 



seg 'klics' 
include 'BitsJ.a' 
include 'Traps. a* 



machine MC68030 



Data stream readers: 

XDELTA. XVALUE. SKIPHUFF, XINT 



macro 
XDELTA 

buf_rinc 

buf_get 

beq.a 

moveq 

buf_get 

bne.s 

Gdopos buf_get 
dbne 
bne.s 

move . 1 

suoq.b 

lsr.l 

andi. w 

add.w 

bra.s 

Gfndpos neg.v 
addq.X 
bra.s 

Odoneg bu£_get 
dbne 
bne.s 

move. 1 
subq.b 
lsr.l 
andi . v 



fcaddr. (step, iptx, (data , (bno, (spare 



(per. (data. (bno 
(data, kbno 
Oquit 
•6, t spare 
(date, (bno 
' Odoneg 

(data, kbno 
( spa r e. 0 dopes 
Of ndpos 

(date. 4 spare 

«7.fcbno 

6 brio . (spare 

•S007F. (spare 

•8. (spare 

Owrice 

(spare 
•7 , & spare 
Owrice 

(data, (bno 
(spare. Odoneg 
Ofndneg 

(data. (spare 
*7,tbno 
(bno. (spare 
*S007F. (spare 



if zero write 
set up count 
read sign 

if negative -> doneg 



; if --spare !■-! 



spare*data 
bno- a 6 
spare>>ebno 
spare AND* mask 
spare* ■ 9 



; bits-trbits 
; bits*«8 



; if --spare! »-l 



; spare-data 

; bno-»6 

; spaxe>>»bno 

; spare AND* m&mk 
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add.w - 
n«g .w 
bra. s 

?f.ndneg suxsq.l 

?wri:e lsl .w 
swap 
add.w 
swap 
add.w 



?quit 



endn> 



macro 
XVXLO 

* 

clr .w 

buf.rinc 

buf_get 

b*Q.s 

moveq 

buf^get 
bna . s 

Sdopos buf_get 
dbne 
bna . s 

move . 1 
subq.b 
lsr.l 
ar.di . w 
add.w 
bra . s 
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: spare*sS 



*8. (spare 
(spare 

■7 . (spare 

(step, (spare 
(step 

(seep, (spare 
(seep 

(spare. (addr 



level- =8 
level<<=step 

•addr=delta 



(addr. (seep, (per , (data. (bno. (spare 



& spare 

&ptr. (data. (bno 
(data. (bno 
Gquic 
#6. (spare 
(data, (bno 
Cdoneg 

(data, (bno 
(spare. 9dopos 
9£ndpos 

(data. (spare 
#7. (bno 
(bno. (spare 
•S007r. (spare 
#8 . (spare 
©write 



if zero write 
set up count 
read sign 

if negative - > doneg 
if --spare!*-! 



sparesdata 
bno-sfi 
spaxe>>«bno 
spare AND* mask 
sparer* 9 



flguit 



neg. w 
addg.I 
bra. s 


( spare 
*7 , (spare 
flwrite 


; bits-obits 
; bits*s8 


buf .get 
dbne 
bne. s 


(data, (bno 
(spare. Cdoneg 
Ofndneg 


; if --spare !«-l 


move. 1 
s'jbq. o 
lsr.l 
andi. w 
add.w 
neg. w 
bra. s 


(data. (spare 
tf7,(bno 
(bno. (spare 
fS007P. (spare 
#8, 4 spare 
(spare 
ewrite 


: sparesdata 

; bno-«6 

; spare>>*bno 

; spare AMD* mask 

; spare*»9 


subq. 1 


•7, (spare 


; level-ae 


lsl.w 
swap 
add.w 
swap 
move. v 


(step, (spare 
(step 

(step, (spare 
(step 

(spare. (addr 


; level<«*step 
; 'addralevel 



endm 
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X*CTQ 
XVAL1 

clr.v 
ouf.rinc 
buf .get 
bee. s 

buf.gec 
bne . s 

Qdcpos buf_get 
dhne 
bne . s 

move . • 
subq. b 
lsr.l 
andi .w 
add.w 
bra.s 

Gfndpoa neg.v 
addq.l 
bra. $ 

3doneg buf_get 
dbne 
bne . • 

move . 1 

subq.b 

lar.l 

andi.w 

add.w 

neg.v 

bra.s 

Sfndneg subq.l 



iaddr . 4 3 cep. ip;r. ida:a . ibno. iapare 



Swrite 
•quit 



lsl.v 
move . w 

endn 



*spare 

*Ptr.idaca. Abno 
'data.&bno 

•CUlt 

•6. ispare 
&daca. Abno 
6 dene g 

&data,&bnc 
tspere. fidepos 
9£ndpos 

&data,&spare 

&-bno, & spare 
•S007F.ispare 
•8.t3p are 
Cwrite 

& spare 

* 7. t spare 
•vrite 

*data.4hno 
iapare, »doneg 
•fndneg 

* da t a. l spare 
•7, *bno 
*b«e, a spare 
•S007F. £ spare 
*8>&apere 
tapare 
•write 

*7 i 4 3 p axe 

&scep, t spare 
tspare.aaddr 



it zero wxice 
sec up counc 
read sign 

if negacive -> doneg 
if --spare<»-l 



spareedaca 
bno-*6 
apare>>sbno 
spare AN Da mask 
spare* s 9 



; bits-sbits 
; bits*»8 



; if — spare! 



apare*data 
bno-»6 

spare>>«bno 
spare AND. mask 
spare* » 9 



level-*8 

level<ostep 
♦addr- level 



9 do 



Gend 
©quit 



macro 

sxiPHurr 

buf_get 
beg. s 
buf_0*t 
moverq 

buf_gec 
dbne 
bne. a 

subQ.b 
buf.rinc 



*pcr, fcdata.abno.t spare 



tdaca.&bno 
•Quit 

*data,4hno 
• 6, i spare 

tdaca.&bno 
& spa re. 9do 
•end 

•7.4hno 

&Ptr, tdata # i±mo 



if zero quit 
skip sign 
sec up count 

if --spare!»-l 



bno-»6 
fill buffer 



endm 



Ci fOCTtxi rrr rucrr rotnr *c\ 
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ibits.. iaddr. iscep. ipt r. idaca. ibnc 



Note: half_q 13 missing 



9pos 
Gcont 



fcuf _r ir.c 


iotr LdAr a ihno 




move . 1 


idata.dO 


; resuitsdaca 


sue .b 


ibita . ibno 


; dl-sbics-i 


subq.b 


• 1 . ibno 


; dl-*l 


lsr.l 


&bno.d0 


; result>>»bno 


clr.l 


da 


: dl*0 


baet 


ibits.dl 


; dI(biC9)-l 


subq. 1 


U.dl 


; dl»mask 


best 


&bics. dO 


; sign? 


beq. s 


epos 


; it positive goco pos 


and. 1 


dl.dO 


; apply mask leaving level 


neg.l 


dO 


; level -»level 


bra. s 


econc 


; goco cone 


and.l 


dl.dC 


; apply mask leaving level 


lsl.l 


istep.dO 


; level<<sscep 


move. w 


dO. iaddr 


; *addr»result 


endm 






macro 






XIWT 


&bits,4addr.4step.4ptr.*data. ibno 



Hardware compatabie version: sign aag( lsb->msb) 



Sshft 



<?pos 



buf.rinc 


fcptr,*data.4bno 


• 




move . 1 


tdata.dO 


• 


resultsdaca 


sub.b 


i bits. ibno 


* 


dl--bits-l 


subq.b 


• l.fcfcno 




dl-.l 


lsr.l. 


tboo.dO 


* 


tenp>>«bno 


clr.l 


dl 




resultsO 


swap 


Lbno 




use fre« word 


reove . w 


&bita. ibno 


* 


bnosbnc.bits 


subq. w 


H.Lbno 




count sbits-2 


lsr.l 


il.dO 




shift mab from remp 


roxl.l 


• i.dl 




inco lsb of result 


dbt 


ibno, «shf t 




for entire magnitude 


swap 


Ltno 




restore bno 


bese 


tO.dO 




sign test 


beq.s 


9pos 


« 


if positive -> pos 


neg. 1 


dl 


• 


results -result 


lsl.l 


istep.dl 




result<<» at ep 


move .w 


dl. iaddr 




*addrsresulc 


endm 









Block data read/write: 
VOID. STILL, SQiD, LPFSTILL 



macro 
VOID 

clr. w 



4x_blk. 4y_blk 
<a2) 
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addq.l 3 
clr .w 
adda.v 
clr .w 
adcq. 1 
clr . w 

en <2n 

macro 
STILL 

XVALO 

addq.l 

XVALO 

adda . w 

XVALO 

addq.l 

XVALO 

endra 

rnacro 
STILLSOJD 

XVXL1 

addq.l 

XVALl 

adda.v 

XVALl 

addq.l 

XVALl 

endta 

macro 
SEND 

XDELTA 
addq. 1 
XO£LTA 

adda.w 

XDELTA 
addq. 1 
XDELTA 

endm 
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4x_blk,a2 ; caddr*=x_blk 
(a2) 

iy_blk.a2 ; caddr* «y_blk 
ia2t 

4x_blk.a2 - ; caddr* =x_blk 
Ia2> 



4x_blk. 4y_blk. tstep 

(a2) . 4step, a0.d6. d7 t d0 
4jtjDlk,a2 

(a21 ,4step,a0.d6.d?,d0 
4y_blk.a2 

ia2 ) , 4 step. aO. d6. d7, dO 
ix_blk.a2 

<a2) . astep. a0.d6.d7.d0 



&x_blk. 4y_blk. fcscep 

(a2) ,4 step. a0,d6.d7 f dO 
4x_blk.a2 

I *3 ) , aatep. aO . d6, d7 . dO 
ay_*>lk.a2 

<a2) .4step. a0.d6.d7.d0 
4x_blk. a2 

<a2) .4step.a0.d6,d7.d0 



4x Jolk. tyjDlk. 4step 

<a2) .4atep.a0.d6.d7.d0 
4x.blx.a2 

<a2 i .4fltep,a0,d6,d7,d0 
4y_Mk.a2 

<a2) .4atep,a0.d6.d7.d0 
4x_blk.a2 

< a2 ) . ist ep . aO . d6 . d7 , dO 



caddr*«x_blk 
caddr*sy_blk 
caddr+rx.blk 



; caddx+&x_blk 
; caddr*cy_blk 
; eaddr«-«x_blk 



caddr* =x_blk 
caddr*ey_blx 
caddr**x_blk 



macro 

LPFSTILL 4x_blk, 4y_blk, 4step. fcbits 

XZKT 4bita, (a2) .4step.a0.d6.d7 

addq.l 4x.blk.a2 

XIKT 4tits. (a2 ) .4atep.a0.d6.d7 

adda.w 4yjblk.a2 

XIKT kbit a. (a2) . 4ttep. aO. d6. d7 

addq.l 4x_Mk,a2 

X2HT 4bits, <e2) .4step.a0.d6.d7 



ReadZnt (at baddx) 

caddr«sx_blk 

ReadZnt 

caddr*«y_blk 

Read! at 

caddr*=x_blk 

Re a dint 
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Data sKippinfl: 

£:<:p«. stillsk:?. ss.skip. sendskip 



SKIP4 TUNC 



EXPORT 



but.nr.c 
SXIFHUFF 
SXIPHUTF 
SXIPHUFT 
SXIFHUFF 
res 



a0.d6.d7 

a0.d6.d7.dO 

a0.d6.d7,d0 

a0.d6.d7,d0 

a0.d6.d7.d0 



fill buffer 



ENDFUNC 



STILLSXIP FCNC 



EXPORT 





buf.rir.c 


a0.d6.d7 


; BUF.INC 






buf_gec 


d6.d7 


; BUF.GET 






beq.s 


$3*1 


; if 0 Che 


STOP 




bsr 


SXIP4 








buf.rinc 


a0.d6,d7 


; BUF.INC 






buf.gec 


d6.d7 


; BUF.GET 






beq.s 


99k2 


; if 0 che 


STOP 




bsr 


5K2P4 








buf.rinc 


a0.d6.d7 


; BUF.INC 






buf jet 


d6.d7 


; BUfZgET 






beq. s 


0sk3 


; if 0 che 


STOP 




bsr 


SKIP4 








buf.rinc 


a0.d6.d7 


; BUF.INC 




V9k3 


buf.get 


d6,d7 


; BUF.GET 






beq.s 


9nxc 


; if 0 Che 


STOP 




bsr 


SXIP4 






Oaxt 


res 










ENDFUNC 








SS.SXIP 
* 


rUNC. EXPORT 








buf.rinc 


a0.d6.d7 


; BUF.INC 






but .gee 


d6.d7 


; BUF.GET 






beq. s 


9skl 


; if 0 chen 


STOP 




buf.get 


d6.d7 


; BUF.GET 






bne.s 


8 ski 


; if 1 Chen 


VOID 




bar 


SXIP4 








buf.rinc 


a0.d6,d7 


; BUF.INC 






buf.get 


d6.d7 


; BUF.GET 






beq.s 


*stt 


; if 0 then 


STOP 




buf.get 


d6,d7 


; BUF.GET 






bne.s 


9sk2 


; if I chen 


VOID 




bsr 


5XIP4 








buf.rinc 


a0.d6.d7 


; BUF.INC 




0sk2 


buf_get 


d6.d7 


; BUF.GET 






beq.s 


esk3 


; if O chen 


STOP 




buf_get 


d6.d7 


; BUF.GET 






bne.s 


9sJc3 


; if X chen 


VOID 




bsr 


SKXP4 








buf_rinc 


• C,d6.d7 


; BUF.INC 




9sK3 


buffet 


d6,d7 


; BUF.GET 






beq.s 


»nxc 


; if 0 chen 


STOP 




buf.get 


d€.d7 


; BUF.GET 
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bne . s * 


firm 


; if 1 chen VOIC 




bar 


SKIP4 




irucz 
• 


rts 














SDJDSK 
• 


:? FUNC 


EXPORT 






bu£_cinc 


aO.d6.d7 


; BUF_INC 




buf _gec 


d€.d7 


; buf.cct 




beq. s 


9skl 


; if 0 the STOP 




buf_gec 


d6.d7 


; BUF.CET 




beq. s 


9ak0 


; if 0 then STILLS DID 




buf _gec 


do . dv 


; BUT.GET 




beq. s 


9akl 


if 0 rh*n VOTTi 




bsr 


SXIP4 






buf_rinc 


aO. d6. d7 




Qskl 


buf _get 


d6 d7 

VAW * U ' 


; BUT_CET 




WC(^ • 9 


Q9JCJ 


; if 0 the STOP 






/4£ #4*9 

ao, o/ 


; BUT_GE7 




beq. a 


9sU 


; if 0 then STILLSDtD 




buffet 


d6.d7 


; BOF.CET 




beq. 3 


«sk3 


; if 0 then VOID 


9sk2 


bsr 


SXIP4 






buf _r inc 


a0.d6» d7 


; BOF.INC 


9SKJ 


OUt_get 


d6.d7 


; BUF.OET 




beq. a 


0sk5 


; if 0 the STOP 




wjf.get 


d6.d7 


; Bur.crr 




beq. a 


0sk4 


; if 0 then STILLSon) 




buf_aec 


d6.d7 


; BtTF.GTT 




beq. a 


9sk5 


; if 0 then VOID 


09k4 


bsr 


SKIP4 






buf_rinc 


a0,d6,d7 


; BUF.INC 


9sk5 


buf.get 


d6.d7 


; BUF.CCT 




beq. s 


Gnxc 


; if 0 then STOP 




buf.get 


d6.d7 


; BUF.CCT 




beq. 3 


9sk6 


; if 0 then STILLS END 




buf_get 


d6.d7 


; BUT.GET 




beq. s 


9nxc 


; if 0 then VOID 


9sk6 


bsr 


SXIP4 




• 


rts 








endfunc 







Octave Processing: 

DCST2LL0, DOSXNDO. DOSTILLl, 
DOVOID1. DOSTILLSEND1 . DOSEND1 



DOSTILLO FUHC . EXPORT 



CMDCTTTtrrr cucrr /dm* c on 



WO 94/23385 



PCT/GB94/00677 



-664 . 



Engineering : XI icsCode : CcmpPict : KUcsDec2 . a 



?scill 



bufTrinc 
buf.get 
bne.s 
res 

move . 1 

STILL 

XVALO 

addq.l 

XVALO 

adda.w 

XVALO 

addq.l 

XVALO 

bsr 
res 



a0.d6.d7 
d6.d7 
©sr ill 



di,d2 
*4.d5.d3 

»a2] .d3.a0.d6.d7.d0 
M.a2 

Ia2>.d3.*0,d6.d7.d0 
dS.a2 

ta2) ,d3.a0.d6.d7.d0 
<a2). d3.a0,d6,d7,d0 



STILLSXIP 



OfDFUNC 

DOS D* DO TUNC 
* 

buf _rinc 
buf.get 
bne.s 
res 



EXPORT 



Scone 



move . 1 
buf_gee 
b«q. v 
buf_sec 
beq. w 

SOJD 

X DELTA 
addq. 1 
XDELTA 
adda. w 
XDELTA 
addq. 1 
XDELTA 

bar 
rts 



a0.d6. d7 
d6.d? 
9 cone 



al,a2 

d6.d7 

9*3 

d6.d7 

evd 

*4.d5.d3 

<a2).d3.a0.d6.d7,d0 
H.a2 

<a2) .d3.a0.d6.d7.d0 
d5, a2 

ta2).d3.a0.d6.d7,d0 
M,a2 

(a2) ,d3,a0.d6.d7,d0 



5ENDSKZP 



; STILLS END *«.d5.d3 



9vd 



XVAL1 

addq.l 

XVAL1 

adda.v 

XVAL1 

addq.l 

XVAL1 

bsr 
rts 

;VOID 



<a2),d3,a0.d6.d7,d0 

<a2J.d3.a0.d6.d7,dO 
d5,a2 

U2),d3,a0,d6,d7.d0 
• 4*2 

(a2).d3,a0,d6.d7.d0 
SS.SKIP 

•4.d5 



buf_:nc 
sur.crr 

if 1 Che still 



caddrrbaddx 



caddr*rx_blk 
caddr*»y_blk 
caddn-=x_blx 



buf_iwc 

8UF_C£T 

if 1 ehea continue 



caddxxbaddr 
BUT.CCT 

if 0 th«n STILLS DID 
BOF.CET 

if 0 then VOID 



caddr^exjblk 
caddr*«y_blk 
caddr^ex.blk 



caddx*«x_blx 
caddr*«y_blx 
caddr^rx.blk 



cr idct'ti rrt currr foi i! r in 
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Gnext 



clr . v ^ 


(a2) 


addQ. 1 


• 4 . &2 


clr. v 


<a2) 


add*. w 


d5,a2 


clr . v 




addq.l 


M,a2 


clr . v 


(42) 


rts 




ZNCFLNC 




macro 




DOST ILL 1 


&ad&r 


buf jet 


d6.d7 


beq. w 


finest 


move. 1 


al.a2 


add.l 


Aaddr,a2 


STILL 


94.d5.d4 


bar 


STILLSXIP 


buf.rinc 


a0,d6,d7 
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caddr-?x_oU 
caddx*ry.blk 
caddr*rx_blk 



; BUT.GET 

; it 0 the STOP 

; caddx=baddr 

; caddr+=addrs II] 



BUF_TNC 



eadm 



9 next 



macro 
OOVOZDl 

move. 1 
add.l 
VOID 

endn 

macro 

DOSTILLSEND1 



4addr 

al.*2 

4addr.a2 

•4,d5 



&addr 



buf.get 
beq.w 
move. 1 
add.l 
buf_get 
beq. s 

VOID 
bra 

ST ILLS DID 
bar 

buf.rinc 



endcn 
DOSTILL2 HMC 

buf_rinc 
buffet 
bne.s 
rca 



d6.d7 

ffnexc 

al.&2 

4addr.*2 

d6.d7 

9aa 

M.dS 
Gnext 

• 4,d5.d4 

SS.SJUP 

a0,d6,d7 



EXPORT 

a0,d6,d7 
d6,d7 

ftccnt 



caddrsbaddr 
caddr*saddr*(U 



BUF.GET 

it 0 the STOP *" 
caddrsbaddr 
caddr^eaddrs fll 
BOT.CET 

it 0 than STILLS END 



; BUF. INC 



BUF.INC 
BUF.CCT 
it 1 the CONT 



Scont move.l 



al.*2 



; caddrsbaddr 



si ipcrrn rrt cwcpt m rt c 9R\ 
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edd.l 3 
STILL 

swap 
exg 

cuf.r :r.c 
DC ST ill; 
costill: 

DOSTILLi 
DOSTILLI 

swap 

exg 

res 
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d5 

d4.a5 



a0.d6.d7 

8iaJ) 

12(a3) 

16<a3) 

d5 

d4.a5 



BUT. INC 





macro 




• 


DOSEND1 


&addr 




buf.ge: 


d6.d7 




beq. w 


e next 




move . 1 


al.*2 




add. 1 


&addr.a2 




buf.get 


d6.d7 




beq. w 


09$ 




cuf_get 


d6,d7 




beq. w 


0vd 




SQ/D 


*4.d3,d4 




bsr 


SOTOSKIP 




bra 


Orine 




VOID 


M.d3 




bra 


0 next 




STILLSEND 


•4.d3.d4 


9rinc 


bsr 




buf _rinc 


aO.dfi.o? 


vnext 
• 








en am 





res END 2 TUNC 



Snxt 
Scont 



EXPORT 



SEND 



SEND 

buf _ri nc 

D0SEND1 

DOSDTO1 



ifl.dl.d3 

a0,d6,d7 

4<a3) 

8(a3) 



BUT.CET 

if 0 the STOP 

caddrsbaddr 

caddr*«.addra(l J 

BUP.CTT 

if C then STILLSEND 
BUP.3ET 

if 0 then VOID 



BUT. INC 



buf.rinc 


a0.d6.d? 




buf.get 


d6.d7 




one. s 


9 cone 


* 


rts 






move.l 


al.a2 


s 


add.l 


<a3) ,a2 




buf.oet 


d€,d7 




beq.v 


ess 


* 

i 


buf.get 


d6,d7 




beq.w 


Ovd 


t 



BOT.mC 
BDT.CET 
if 1 the COOT 



caddr»baddr 
caddLr*«addri (0] 

Bup.crr 

if 0 then STILLSEND 
BOF.CET 

if 0 then VOID 



BUT. INC 



SUBSTITUTE SHEET (RULE 2B1 
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DOSDJD1 
DOSDTO1 
res 
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12 la3) 
I6(a3) 



ss 



STI1LSZND »8.dl.d3 



buf.rinc aO,d€,d" 
DOSTI1LSDJD1 4(a3) 
DOST ILLS END 1 8<a3) 
DOSTX1LSDJD1 12 (a3) 
DOSTILLSEND1 16 (a3) 
rts 



.BUF.INC 



VOID 



vd 



VOID 
DOVOID1 

dovoid: 

DOVOID1 
DOV0ID1 
res 

ENDFUNC 

. macro 
UVST1LL0 

Low_Paaa 

mov«. 1 

LFFSTI1X 

Sub-band gh 

addq.l 
bsr 

Sub- band hg 

subq.l 

add.l 

bsr 

Sub- band gg 

addq. 1 
bsr 
sub.l 
addq. 1 

endm 



»8,dl 

4<a3) 
8(a3) 
12(a3) 
16(a3i 



al.a2 

*4.dS.d2.d4 



#2.al 
DOSTILLO 



«2.al 

DOSTILLO 



#2.al 
DOSTILLO 
a4.al 
• 6 # al 



; caddr-baddr 



baddr+»2 (gh band) 



baddr-»2 (hh band) 
caddr*«l row (hg band) 



baddr*s2 (gg band) 

caddr-»l row (gh band) 
(2+) *ddr 10 J+«x_inc 



macro 
UVSENDO 



Low. Pas 8 



bui_rinc 

buf_g«t 

beq.w 



a0.d6,d7 

d6.d7 

daubs 



BOT.2NC 
BUT.CET 

if 0 then process auhbands 



siiBSTfnnr shfft tmn f 
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:nove . 1 . 
SEND 

Sub-band gh 

Ssubs addq. I 
bsr 

Sub-band ng 

subq.l 

add.l 

bsr 

* Sub-band gg 

addq. 1 
bsr 
sub.l 
a*idq.l 

endm 



Engineering : Kl icsCode : Cztr.pPic; : Kl icsD€c2 . a 

ala2 ; cadcr=baddr 

M.d5.d2 



• 2.al 
DOSDfDO 



• 2.al 
a4.al 

DCSEXDO 



«2.al 
DOSDIDO 
a4.al 
• 6.al 



baddr- =2 (gh oanc) 



fcaddr-=2 fhh band) 
cadcir* = l row ihg band) 



baddr*s2 (gg band) 

caddr-al row (gh band) 
(2*j ad&r (Oj -rx_inc 



Decoder f unctions: 
Klics2DlStill. Klics2DlSend 



Klics2DlStUl FUWC 



EXPORT 



KliciMlStiU (short *d3t, long si«_x. long siae_y. long lpfbits, short • 



norms 



PS 
dst 

si2e_x 
size^ 
lpfbits 
norms 
p:r 
dara 
cno 



IS 

x_lim 

x_linc 

y.iacO 

y.incl 

y.lim 

IS lit 



RECORD 

DS.L 
DS.L 
DS.L 
DS.L 
DS.L 
DS.L 
DS.L 
DS.L 
ENDR 

RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

COO 

DtDR 



6 

1 
1 
1 
1 
1 
1 



0 . DECS 

1 

1 

1 

1 

1 



x counter termination row.start- 

x termination increment 1 row 

y counter increment 4 rows 

y counter increment 7 rows 

y counter termination area 



dO/dl - spare 
d2 - step 0 (HH) 
d3 - step 0 
d« - lpfbits 
d5 - y.bl* 
d6 - data (hie 
d7 - bno (bit 



stream) 
pointer) 



SUBSTITUTE SHEET (RULE 26) 
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iO - ptr :tit buffer) 

- baddr (block address) 

- caddr tcoeff acidress) 

- x_lim 

- x_linc 

- y_incO 



link 
novem. i 

Load BiC Buffer 



a6, tLS. LSize 
d4-d7/a3-a5. - (a*?) 



locals 

score registers 



ey 

9x 



eiuc 





PS da r a l j»n 
* »v ♦ ua ia iodj t ov 




OV*4Ql bl 


move . 1 


(a0).d6 




; daces'aO 


move . 1 


PS.bno(a6) ,a0 




; aOsajnask 


move . 1 


(a0).d7 




* maska*a0 


move . 1 


PS. per (a6) , aO 




1 aOs&pcr 


move . 1 


(aO) ,a0 




■ aOspcr 


Up Block 


Counters 








PC H<r raft) ■ Y 


# 




mo vw . a 


DC m i m v 1 1 <4A 




d0&aize_x 


-/4#* 1 


au * qu 


« 


in scores 


move . 1 


Qu . LS . x_ 1 inc ( ao ) 




X.lincsi row 


move . 1 


Po. aixe_y (ao) , dl 


* 


dl»8ize_y 


muls . w 


dO. dl 




dl*»d0 (area) 


add. 1 


al. dl 


* 


dl*- image 


move . 1 


dl . LS.y_lim(a6> 


* 


y_lim-dl 


move . 1 


d0.d2 


* 


d2sd0 (1 row) 


add.! 


dO.dO 




d0*a2 (2 rows) 


move.l 


dO.dJ 


* 


y_blk-dO 


— » — i 

3UDQ. X 


♦4 «a3 


i 


y_Jalk--x.blk 


add. l 


dO.dO 


• 


d0*»2 (4 rows) 


move . 1 


dO , LS .y.incO ( a 6 ) 


J 


y.inc0«d0 


aaCU- 


ao. (30 


* 


d0*»2 (8 rove) 


SUD. 1 


G— , ao 


* 


dO-«cL2 ii rove] 


move. 1 


dO.LS./_inclta6) 


• 


y_lncl»d0 


move.l 


PS.ncnns <a6) . a2 




Cat Norm po inter* 


move. 1 


(e2) ,d2 




reed normal 


move. 1 


4la2),d3 




read normal 


move. 1 


PS.lpffcits ,d4 




read lpfbits 


move. 1 


LS.x_linc<a6) .a4 




read x.l.xnc 


move. 1 


LS.y.incO (a6 ) , a3 




read y.incO 


move. 1 


a4.a3 


* 


x_lim-x_linc 


add.l 


al.a3 


» 


x.liov»%baddr 


UVSTILLO 






process DV block 0,0 


OVSTILLO 






process UV block 1,0 


add.l 


a5,al 


* 


(2) addr I0]*=y_inc 


cmp. 1 


LS.y_lim(a6) .al 


* 


(2*) addr(0]-limic? 


bge.w 


ilaat 




if half heiohc 


sub.l 


•16, al 




pointereblkfO, 1) 


UVSTILLO 






procees UV block 0.1 


WSTXIAO 




* 


process UV block 1.1 


sub.l 


aS.al 


i 


(2) addr(0)#-y.inc 


Cmp.l 


aJ.al 


* 


(2*) addrfO] -limit? 


blt.w 


•x 


• 


(4) if leas then loopX 


add.l 


LS.y_incl(a«),al 


# 


(2*) addr (0)**y.inc 


cisp. 1 


LS.y_li--<a6).al 


J 


(2*) addr(0] -limit? 


blew 


•y 


* 


(4) if less Chen locpY 
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Save Bit Buffer 



move . ; 


FS.data(a6) .a2 


; spare*ldata 


move . 1 


d6. ia2) 


: update data 


move . i 


PS.bnoia6),a2 


; spare=ibno 


move . 1 


d7, ia2) 


; update bno 


move . 1 


PS.ptr (a6 ) , a2 


; spare»4ptr 


move . 1 


aO. (a2) 


; update ptr 


movain. 1 


(a7)*.d4-d7/a3-a5 


; restore registers 


unlk 


a6 


; remove 1 oca is 


res 




; return 


ENDFUNC 







Klics2DlSend 



TUNC 



EXPORT 



Klics2DlSend i short *dst. long si2e_x. long size_y, short 'norms, unsigned long 



PS 


RECORD 


8 










dst 


DS.L 


1 










siie.x 


DS.L 


1 










siie^y 


OS. L 


1 










norms 


DS.L 


1 










per 


DS.L 


* 










data 


DS.L 


1 










bno 


DS.L 


1 










• 


EMDR 












LS 


RECORD 


Core* 










x.1 jjn 


DS.L 


l 


• 
# 


X 


counter termination 


rov.atart* 


x.linc 


DS.L 


i 


* 


X 


csrmi ration incremnc 


1 row 


y.incO 


DS.L 


i 


s 


y 


counter increment 


4 rows 


y.incl 


DS.L 


l 


• 


y 


counter increment 


7 rows 


y_lim 


DS.L 


i 


* 


y 


counter termination 


area 


LSize 


ECU 


• 












£NDR 













dO/dl - spare 



d2 


- step 0 


<KH) 






62 


- seep 0 








d4 


- y.incO 








d5 


- y.blk 








d6 


- data 


(bit stream) 






d7 


- bno 


(bit pointer) 






aO 


- ptr 


(bit buffer) 








- baddx 


(block address) 






a2 


* caddr 


(coeff address) 






a3 


- x_lim 








a4 


- x.linc 








a5 


- y_lim 










link 


a6, iLS.LSite 


■ 


locals 




movere. 1 


d«-d7/a3-a5.-(a7) 




store registers 


Load Bit Bur 


fer 








move. 1 


PS.daca(a6) ,a0 


* 


aO*&data 




move • 1 


(aO) ,C6 




data«*a0 




move. 1 


PS.bno(a6) ,*0 


* 


a0*4roask 




move. 1 


(a0).d7 




maek**e0 



iRcrrin nr <;wprr tm n t 
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ex 



eiast 



nxve . 1 


* PS.ptr(a6),aO 


move. 1 


faO) .aO 


: Up Blcck 


Counters 


move. 1 


PS. dsc (afr) . al 


rove . 1 


PS. size xia6i dO 


aid.! 


dO, dO 


move . * 


dO.LS.x iincfa6) 


move . I 


PS.si2e_y(a6) ,dl 


mula. w 


dO.dl 


add.l 


al,dl 


move . 1 


dl.LS.y lim(a6) 


move. 1 


d0.d2 


add.l 


dO.dO 


move . 1 


dO.dS 


subq.l 


•4.d5 


add. 1 


dO.dO 


nova 1 


ou , Lo. y_inco (ao ) 


OUU . 4, 


uu , au 


SUA. 1 


a2, do 


move . 1 


dO.LS.y_inclla6) 


move.l 


PS. norms (a6) ,a2 


move . 1 


(a2) ,d2 


ruove.l 


4(a2) ,d3 


move .1 


LS.x_linc(a6) 1 44 


move . 1 


LS.y_inc0la6> ,d4 


move.l 


LS.y_iim<a6; ,a5 


move. 1 


a4.a3 


add.l 


al.aJ 


UVSXNDO 




DVSSJDO 




add.l 


d4.al 


cmp . 1 


a3,al 


bge.w 


•last 


sub.l 


#16. al 



UVSENDO 
UVSDJDO 
sub. 1 

cmp. 1 
blew 
add.l 
cmp . 1 
bit .v 



Save Bit Buffer 



Engineering .-KlicsCode.-CompPict : KlicsDec2 .a 



aCr&ptr 
aOapcr 



; als image 

; dOr»ize_x 

.* in shorts 

; x_linc=l row 

; dl«size_y 

: dl*=dO (area) 

; 'dl*s image 

; y.limxdl 

; cU-dO (1 row) 

; d0**2 (2 rows) 

; copy to d3 

; subtract xjblk 

; d0*«2 (4 rows) 

; y_incOsdO 

; dO* =2 (8 rows) 

; d0-sd2 (7 rows) 

; y_incl»dO 

; Ce therm pointer 
; reed normal 
r read normal 

read x_linc 

read y.incO 

read y_liro 

x. Umax, line 
x_llm*sbaddr 
procaes cv block 0.0 
process UV block 1,0 
(2) addr(0)+*y_inc 
(2) addrfOJ-limit? 
if half 'height 
poantor=blk (0, 1) 
process UV block, -0,1 
process UV block 1,1 
(2) addr iOJ ♦»y_inc 

t2) addrr0]-linic? 
f4) if less then loop* 
(2*) addr[0)*sy_inc 
<2) addr|0)-limit? 
14) if less then loopy 



d4.al 

a3.al 

9x 

LS.y_incl(a6).al 
a5,al 

*y 



move.l 


PS.date(a6),a2 


move . 1 


d6. (a2) 


move. 1 


PS.bno(a6),a2 


move.l 


d7, (a2) 


move.l 


PS. ptr(a6),a2 


move.l 


aO. U2) 


moven. 1 


(a7i*,d4-d7/a3-ai 


unlX 


a€ 


rts 




ENDPUNC 





; spere»4data 
; update data 
; spare* -bno 
; update bno 
; spaxe*4ptr 
; upoata ptr 

; restore registers 
; remove locals 
; rat urn 



si irktiti nr chfft mi n f m 
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KIics3D2Stin ( shcrt 



Engineer ins : : csCode : CcmpPicc : KIics3ec2 .a 
. r UNC EXPORT 

dsc. lens size.x. Icr.g si:e_y. lcng lpftics. 



short 'norma 







6 


CSC 


DS . L 


1 




OS - 1 


1 




OS . L 


1 


iprfcits 


DS.L 


1 


norms 


DS . L 


1 


Ptr 


DS.L 


1 


data 


DS.L 


1 


tnc 


DS.L 


1 


sub. cab 


DS-L 


I 




EUDR 




LS • 


R£CORD 


O.DECR 


y_blkO 


DS.L 


1 


y.blkl 


DS.L 


1 


x_inc 


DS.L 


X 


x.lira 


DS.L 


1 


x.Iinc 


DS.L 


1 




DS.L 


1 


y-lim 


DS.L 


1 


LSice 


EOT 


• 




ENDR 





dO/dl - spar* 



d2 


- step 


2HH 


d3 


- step 


* 
* 


d4 


- step 0/lpfbits 


d$ 


- y.blkO.y.blkl 


d6 


- data 


(bit stream) 


d7 


- bno 


(bit pointer) 


aO 


- ptr 


(bit buffer) 


aX 


- baddr 


(block address) 


a2 


- caddr 


fcoeff address) 


aJ 


- addrs 


(tree addresses) 


a4 


- x_lim 


(x counter termination) 


aS 


- lpfbics/step 0 



link 
movero. 1 

Load Bit Buffer 

move . 1 
move. 1 
movt . 1 
move. 1 
move. 1 
raove.l 



a*. «LS.LSise 
d4-d7/a3-e5.-ia?) 



PS. data <a6) .aC 
(a0),d6 
PS.bno(e6) ,a0 
(a0),d7 
PS.ptr (a6) ,a0 
<a0) ,a0 



Set Up Block Counters 

move.l PS.dst (a6) ,al 

raove.l PS. size.x (a6) .dO 

move.l »16, LS.x_ir*c(a6) 

add.l dO.dO 

move.l dO.LS.x_lincia6> 

move.l PS.siie_yia6) .dl 

muls.w dO.dl 



y inter-block increment 
y incer-block increment 
x counter increment 
x counter termination 
x termination increment 
•/ counter increment 
y counter termination 



2 rows - 4 
4 rows - 8 
16 

row.start* 
1 row 
" rows 
area 



locals 

store registers 



aOs&data 

data*'aO 

aOs&mask 

mask**aO 

a0«4ptr 

aO«ptr 



al= image 
dCUsize.x 
save x_inc 
in shorts 
x. lineal row 
dl»aize_y 
dl--dO (area) 
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©y 



add.! 
sieve. 1 
move, l 
add.l 
move.l 
subq. 1 
move. 1 
add.l 
add.l 
move . 1 
subq. 1 
move. 1 
add.l 
move . 1 

move. 1 

move. 1 

move.l 

move.l 

move.l 

ewap 

move.l 

move.w 

move.l 

move.l 
add.l 



Low.Paaa 



9* move . 1 

LFPSTILL 

* Sub- band 9b 

bar 
add.l 

• Sub- band hg 

bar 
add.l 

Sub-band gg 

bar 
aub. 1 

add.l 
cmp. 1 
blt.v 
add.l 
crop. 1 
blt.v 

Save file Buffer 



al.dl 

d!.LS.y_lim(a6) 

d0,d2 

dO.dG 

dO.dS 

• 4.d5 

d5.LS.y_blkO(a6) 

d0,d2 

dO.dO 

d0.d4 

»6,d4 

d4.LS.y_blkl<a6) 
d2.df> 

dO, LS.y_inc(a6) 

PS.ncmj (a6) f a2 
(a2) .d2 
4{a2),d3 
8fa2>,a5 

PS.lpfbita<a6).d4 
d3 

LS.y.blXl(a6»,dO 
dO.dS 

FS.sub_tabla6) ,a3 

L£.x_linc<a6),a4 
al,a4 



al.aJ 

»8.d5.d2,d4 



DOSTIXX2 
♦20, a3 



OOSTILU 
•20. a3 



DOSTILL2 
MO.ai 

#16. al 
a4. al 
0x 

i-S.y_inc(e6),al 
LS.y.lun<a6),al 

*y 



Send move.l PS.data(a6) ,a2 

move.l d6,(e2) 

move.l PS.bnc(e6),e2 

move.l d7,<e2) 

move.l PS.ptna6).a2 

move.l a0,<e2> 



: dl image 

; y.limsdl 

; d2ad0 (1 row) 

; d0«=2 (2 rows J 

; ccpy co d5 

; y.blk: subtract x blk 

: save y.blkO 

dJ *=d0 (3 rows) 
; dO* =2 (4 rowa) 
; copy co d5 
; y.blk: subtract x.blk 
; save y^blkl 
; d0^sd2 (7 rows) 
; y.incadO 

; GecMonn pointer 
; read nornal 
; read nornal 1 
; read normal 0 
; read lpfbits 
; y.blk=00XX 
; read y_blkl . 
r dS.y^blkO/l 
; a3saddrs 

x_lim»x_linc 
x_lim*»baddr 



; caddr=baddr 



(2) addxro]*»x_inc 
(2) addrfO] -limit? 
(4) if lets then loopx 
(2*) addr [ 0 ] ♦ my _inc 
(2*) addrCOJ -limit? 
(4) it leaa then loopy 



8pajre*4data 
update data 
aparec&bno 
update bno 
apaxesaptr 
uodace ptx 



cnocTmrrt cucrT /Din c oe*i 



WO 94/23385 



PCT/CB*4/00477 



- 674 . 



Engineering: :<l;csCcdc:CcmpPicz :KlicsOec2 . a 



Page 16 



unik 
rts 



ia7U.d4-dVa3-a: 
a6 



restore registers 
remove iccals 
return 



ENDFUNC 



KUcsir2Seni 



EXPORT 



Klics3D2Send(short •dsc. long siie.x. long size._y. shore •norms, unsigned long 



PS 


RECORD 


8 






dsc 


DS.L 


1 






sne_x 


DS.L 


1 








DS.L 


1 






norms 


DS.L 


1 






per 


DS. L 


1 






data 


DS.L 


1 






bno 


DS.L 


1 






sub. cab DS.L 


1 






• 


ENDR 








LS 


RECORD 


O.DECR 






y.blxO 


DS.L 


1 




; y meer -block increment 


y-blkl 


DS.L 


1 




; y ineer-block incremanc 


x_mc 


DS.L 


1 




; x counter increment 


x_li*n 


DS.L 


1 




; x counter termination 


x_linc 


DS.L 


1 




; x termination increment 


y.inc 


DS.L 


1 




; y counter increment 


y_l ire 


DS.L 


1 




; y counter termination 


LSize 


ZQV 


• 








QiDR 








dO 


- spare 








dl 


- y.blkl 








• d2 


- seep 2HH 






• d3 


- seep 1 








d4 


- seep 0 








d5 


- y.blkO 








• d6 


- data 


(bit scream) 






• d7 


- bno 


(bic pointer) 






aO 


- per 


(bit buffer) 






al 


- baddr 


(block address) 






a2 


- caddr 


(coeff address) 






a3 


- addrs 


(tree addresses) 








- x_lim 


(x counter termination) 








link 


a6. *LS.LSise 


• 


locals 




movent. 1 


d4-d7/a3-a5.-(a7» 


* 


store registers 


* Load Bic Buffer 








move. 1 


PS. data (a6) , aO 


* 


aOsfcdata 




move*. 1 


(a0),d6 




data**aO 




move. 1 


PS.bno(a6) , aO 




aOskmask 




move.l 


<«0).d? 




mask»*aO 




move. 1 


PS.ptr (a6) ,e0 


* 
• 


aO»&pcr 


* 


move.l 


<a0) ,a0 




aOspcr 


Set 

• 


Up Block 


Counters 








move. 1 


PS.dsc <a6) ,al 




al a image 



2 rows - 4 
4 rows - 8 

16 

rov.start* 
1 row 
"7 rows 
area 



CMOCnTMTT CUrCT /Dili C OC\ 
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0X 



move . 1 


PS. size_x(a6 ) . dO 




; dO=size_x 


move. 1 


•16.LS.x_inc(a6) 




; save x_inc 


add. 1 


dO.dO 




; in shores 


novo. 1 


dO.LS.x_lincia6> 




• x_iinc=l row 


move. 1 


PS. siae_y (a6 ) . dl 




■ di=size_y 


mu 1 s . w 


dO.dl 




dl*>dO (area) 


add. 1 


al.dl 




dl*=image 


move . 1 


r 1 1 I C v • • m f ji A 1 
« ■ / _ «> *jn 1 oo / 




y.i i nisu i 


move . 1 


d0.d2 




d2*d0 (1 row) 


add.l 


dO.dO 




d0*»2 (2 rows) 


move . 1 


dO.dS 




copy co d5 


subq. 1 


M.d5 




y_blk: subtract 


move . 1 


d5.LS.y_blkO<a6) 




save y_blkO 


add.l 


d0.d2 




d2*«d0 (3 rows) 


M AA 1 
AOO . 1 


ao. ao 




j A * % i A k 

do* ^2 (4 rows) 


move. 1 


d0,d4 




copy co d3 


subq.l 


«8. d4 




y_blk: subtract 


move . 1 


d4.LS.y_blkl<a6) 




save y.blkl 


add.l 


d2,d0 




d0-r.d2 (7 rows) 


move. 1 


dO. LS.y_inc(a6) 




y_incsdO 


move.l 


PS. norms (a6) ,a2 




Get Norn pointer 


move . 1 


(a2).d2 




read normal 


move . 1 . 


4<a2).d3 




read normal 1 


move. 1 


8(a2),d4 


» 


read normal 0 


move.l 


LS.y_blkl(a6).dl 


* 


read y.blkl 


move.l 


PS.sub_tab(a6) ,a3 


* 


a3«addxs 


move. 1 


LS.x_line(a6) . a4 


* 


X_lim*x_linc 


add.l 


al.a4 


s 


x_lim* abaddr 



Low_Paaa 



buf _rinc 
buf_gec 
beq.w 
move. 1 
SOTO 



• Sub -band gh 

6 subs bar 

add.l 

• Sub -band hg 

bsr 
add.l 

• Sub -band gg 

bsr 
sub.l 

add.l 
cmp.l 
blt.w 
add.l 

OHp. 1 

blt.w 



a0.d6.d7 
d6.d7 
9 subs 
al, a2 
M,dl.d2 



DOSEND2 
•20. a3 



OOSQ2D2 
•20. a3 



DOSEND2 
♦40, a3 

#16, al 

a4,al 

«x 

LS.y_inc,'a6) ,al 
LS.y_iim<a6),al 

•y 



BOF.ZKC 
BUF.CET 

if 0 Chen process subbanda 
caddrabaddr 



(2) addr (0) *«x_inc 
(2) addrlOl-limit? 
(4) if less Chen loopx 
<2+) addr f 0) *«y_inc 
(2+) addr (0J -limit? 
(4) if less then loopY 



Save Bit Buffer 
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move . 1 
move. 1 
move . i 
move . 1 
move . 1 
move . 1 


PS .daca ( a 6 1 a2 

c6. (a2) 

PS .bno<a€ ) t &2 

d7. ta2) 

PS .pc tiao » . a2 

aO. (a2i 


s "5 A r # » I H ji r a 

; update data 
; spare -ktxxo 
: updace bno 
. spare*&pcr 
; updace per 


rr.ovem. 1 
un 1 .< 
res 


la7W.d4-d7/ai-a5 
a6 


; restore registers 
; remove locals 
; return 


DJDFUNC 






END 
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•C Copyright 1993 KLICS Limited 
All rights reserved. 

written by: Adrian Lewis 



• Importing raw Klics binary files 
Stand-alone version 

•/ 

^include 'Bitsa-h* 
^include •Klics.h* 
• include • Rl icsHeader . h • 

typedef char Boolean; 

/• If bool true the negate value •/ 

"define neg if (bool, value) ( (bool) ?- (value) : (value)) 

extern void HaarBac)cward( ) ; 

extern void Daub4Bacirvard( short *data.int sizef2),int oct arc) ; 

extern void TestTopBackwardt short *daca.iat sixef2) f inc oct srcj; 

extern void TeatBackvard < short •data.inc sise(2].int oct arc); 

extern void KLICSDCKAKNEL I short -dec, long octs. long sii"e_x. long sixe_y, loo- 

/• Use the bit level file macros (Bits2.h) •/ 

/• buf_use; •/ 

/• Huffman decode a block */ 
♦define Huf fDecLevUev.buf ) \ 

lev (O)sHuff Decode (buf )t \ 

lev[l J =Huff Decode (buf ); \ 

Ievf2]-Huf fDecode<buf ) ; \ 

lev(3 ) sHuf f Decode (buf ) ; 

/• Fixed length decode bloc)e of integers •/ 
f define IntDecLevUev, lpf_bits,buf ) \ 

levfO]eIntDecodeMpfJbit» f bu£); \ 

lev(l)»IntDecode(lpf_bits.buf >; \ 

lev t 2 J.Int Decode llpf Jbits.buf ) ; \ 

lev[3J.IntDecode<lpf Jbits.buf ) ; 

/• Reverse quantize difference block •/ 

•define RevQntDelta (new, old. lev, shift ) \ 

new|0)=oldtO)*(levfO)«ahitt)»(lev(0) i=0?neoif (lev(0)<0. ( l<<shif t ) -i»l ) : 0) ; \ 
new(l) a old(lJ*(levri)«shift)*(lev(13 ».0?ne9if (lev[l)<0, <l<<shif t » -1»1> : 0) ; \ 
new 2]=old(2)*(lev|2]«3hift)*(lev{2) !*0?negif (lev(2)<0, (l<<shif t ) -1»1 ) : 0) ; \ 
new(3)=old{3J*(levI3]^<8hift)-(lev|3) !*0?negif (lev(3)<0, <l<*shif t) -i»li :0) ; 

/• Reverse quantise block */ 

•define Re vOnt (n«w, lev. shift ) \ 

nev|0]3(levCOJ«shift)*(levfO) *«0?negif <levf0)<0, ( l«shif t ) -1»1) :0) ; \ 
new{l)-(lev[i)«shift)*(levfl) i.0?negif-(lev(l)<0 # (l«shifx) -1»1 ) :0) ; \ 
new(2].llev(2I<cahift)*{levf2) !»0?negif (lev(2}<0. ( l«ahift) -1»1> :0) ; \ 
newC3]a(levf3)«ehift)*(lev(3] !.0?negif ;iev[3J<0. (l«ehif t > -1»1> : 0) ; 

•define Re vQntLPr (new. lev, shift) \ 

new(0)«(levfO]«shift)*( d«shift)-l»l) ; \ 

new(l)»(lev(l)«shift)^( (l«shift)-l»l) ; \ 

new(2jB(lev(2)«shift)*( fl«<shift ) -1»1) ; \ 
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aew(3 J«fl«vf 3 i<<ahift i- ( (i<<shir t . ; 
/• Read a difference blcck and update memory •/ 

•define DoXferDelta (addr. eld. new. Jev.dst . shift, mode. oc:. rvTiode buf) 
Huf fDecLevdev. but) ; \ 
P.evCnt Delta (new. old. lev. shift) \ 
PvitData t addr. new. dst ) ; \ 
.Tiode (cct ; «oc:ssO?M.STOP:nmode; 

/• P.ead a block and update memory •/ 

•de f ine DoX f er ( addr . new, 1 ev, dst , shift . mode . occ . nmode . buf ) \ 
Huf fDecLevdev. buf ) ; \ 
RevOnt inev, lev, shif t) \ 
PutData (addx. new, dst ) ; \ 
mode ( oc t ]= oc t s s 0 ? m_ STOP : nmode ; 

/• Function Name: IntDecode 

• Description: Read a integer from bit file 
Arguments: bits - bits/ integer now signed 

• Returns: integer value 
•/ 

short IntDecode (short bits. Buf buf) 

( 

int i. levsO. masks 1; 

Boolean sign; 

/• Hardware cctnpetatble version •/ 

buf.rinctbuf ) ; 1 
s ign»buf _get ( but ) ; 
for(ieO;i<bits-l; { 
buf.rinctbuf ) ; 

if (buffet (buf ) ) lev I- mask; 
mask <«« 1; 

) 

if (sign) levs -lev; 
return ( lev) ; 



/• Function Name: HuffDecode 
• Description: Read a Huffman coded integer from bit file 
Returns: integer value 

•/ 

short Huf f Decode (Buf buf) 



short lev«0, i; 
Boolean neg; 

/* Hardware corapatatble version */ 

buf _rmc(buf ) ; 

if (buf.oet (buf ) ) { 

buf_rinc (buf ) ; 

negxbuf_g«c (buf ) ; 

do ( 

buf_rinc(buf ) ; 
lev**; 

) while (lev<? &£ ! (buf_get (buf )) ) ; 
if (! (buf_get(buf )) ) { 

for (lev»0, i»0;i<7;i**j < 

lev<<«l; 

buf.rincfbuf ) ; 



n iottitutt rutcr /©in c 
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* if (bufjet (buf ) ) lev**; 
) 

lev** 8; 

) 

if (neg) leva -lev; 

) 

recurrJ lev J ; 

j 

/• Function Name: xlicsDChannei 

• Description: Decode a channel of image 

• Arguments: dst - destination memory (and old for videos) 

octs. size - octaves of deconposition and image dimensions 

• normals - HVS weighted normals 

Ipf-bits - no of bits for LFF integer (image coding only) 

•/ 

void Kl icsDecY < short 'dst, int octs, int slze(2], KlicsFrameHeader -fnnh. 
KlicsSeqHeader •seqh. Buf buf) 

I 

int oct, mask, x, y. sub, steps2<<octs. blk(4], modi (4), baee_mode» ( f rmh-> 
Blk addr. new, old* lev; 

for(y*0;y<sire(l] ;y*estep) 

f or (x*0;x<size(0) ;x*»atep) 

f or (subsO; sub<4 ;sub«"+) ( 

mode ( oct »oct • - 1 } ■beae.mode ; 

if (sube»0) modei (oct «octa-l) l» H.LPF; 

maska2<<occ; . 

do { 

GetAddr(addr.x,y, sub, oct ,siie. mask) ; 
switch (nodal oct J ) ( 
case N.VOZO: 

GetData (addx\oId.dat); 
if (BlkZaro(old) ) mode (oct )aM_STOP; 
else ( DoZero(addr,dst.»ode,oct) ; } 
break; 
case M_SEOTIH_STILL: 
buf_rinc(buf ) ; 
if (buf_get fbuf ) ) ( 
buf_rinc(buf ); 
if (buf jet (buf )) ( 

DoZerof addr, det. mode, oct) ; 
) else ( 

DoXf ex (addr, new, lev, dst . frmh->c/uant iter (octs -oct] .mode, oct. K_S 

) 

) else 

mode I oct ] sH.STOP; 
break; 
case M_5END: 

buf_rinc(buf ); 
if <buf _get<buf )) ( 
bu ferine (buf ) ; 
if (bufjet (buf )) { 
buf.rinc (buf ) ; 
if (buf jet (buf ) I < 

GetDatel addr. old. dst) ; 

DoXferDelta (addr. old, new. lev, dst . f rmh->quanti2er|octs-oct) 
) elM ( 

DoZerof addr, dst. mode, oct) ; 

) 

) else ( 

DoXf er ( addr. new. lev. dst . frmh-»guant ixer [octs -oct J . mode , oct , M_s: 



WO 94/23385 



PCT/CB94/00677 



- 680 - 



Engineering:.-.l;csCode:CcmpPic: : KlicsOec. c 



) 

) else 

rnode(oct;*M_STOP; 
break; 

case M_ST2LL : 

buf.rinc (but ) ; 

if ibuf.cet ibuf ) ) { DoXf er ( addr . new, lev, dst. f rmh-xjuanc i ztz locts -oct J . 

else mode (oct J=M_STOP; 

break; 

case H_LPF1M_STILL: 

IntDecLevdev. seqh->precisicn- f rah -> quantizer (01 ,buf ) ; 

RevOntLPFlnev. lev, f rmh->quant izer ( 0] J ; 

PucDatataddx.new.dst ) : 

mode (oct] »M_0Urr ; 

break; 
case m_lpfim_SOJD: 

buf.rinctbuf ) ; 

if (buf.get (buf ) ) ( 

GetData (addr. old. dst) ; 
HuffDecLevdev.buf ); 

RevOntDelca (new. old. lev. f rmh->quanc i2er(0] ) ; 
Pxi t Data (addr. new, dst ) ; 

) 

mode(oct]sM_OUIT; 
break; 

J 

switch (mode (oct ] ) ( 
case H.STOP: 

St opCounc er s ( mode . oct . nask , blk . x • y . oct s J ; 

break; 
case M.OUIT: 

break; 
default : 

DownCount era < mode * oct , mask , blk ) ; 
break; 

) 

J while (mode ( oct J ! =M_0CJXT) ; 

Y 

» 

void KlicaDecUVi short 'dst. int octs. int size(2J. KlicaFrameHeader -frmh. 
KlicsSeqHeader *seqh. Buf buf) 

int oct, mask, x, y, X, Y, sub. step«4«octs. blk(4). modeHI. base_mode«i 
Blk addr, new, old, lev; 

for<Y»0;Y<size(l) ;Y*sstep) 

for<X«0;X<aixe(0) ;X~«»tep) 

£or(ysY;y<ai»e(11 ** y«Y*atep;y*»atep>>l ) 

f or(x»X;x<size (0) t& x<X*step;x+*step»l ) 

for (su&?0;aurx4;9ub*<+) ( 

mode ( oct »oc t a - 1 ) • ba s e_mode ; 

if (suo«s0) mode (oct «octa-l] (■ H.LPF; 

maek»2<<oct; 

do ( 

CetAddr I addr, x,y # sub, oct, size, mask) ; 
switch(mode(oct) ) ( 
case H.VOXD: 

CetDota (addr. old, dst ) ; 

if (filkZero(old)) mode ( oct ) -H.5TOP; 

else ( Do2ero (addr, dst, mode, oc t ) ; ) 

break; 
caae M.SENDIM.STXLL: 
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but.rinc (txif 1 ; 

if fbuf_jec (bur ) ) ( 

buf.rinctfcuf ) ; 

if (buf.gat (but) ) ( 

DoZero(addr. dst ,mcce. oct ) ; 

J else { 

^cXfer (addr,nev. iev.cat . i rmh • >guantizer ( occs-cct ) .mode. occ.H.S 

} else 

mode f oct l=M_STOP; 
break; 
case M.SEND: 

buf_nnc(buf ) ; 
if (buf.get (buf) ) { 
buf_rinc(bu£) ; 
if :buf_get (buf )) { 
buf_rinc(buf ) ; 
if (buf_get (buf )) { 

CetData(addr.old,dsti ; 

DoXf erDelta(addr. old. new. lev.dst . f xmh->quanti2erlocts-oct ) 
> else ( 

Do2e roladdr.dsc. mode, oct ) ; 

) 

) else { 

DcJCf ex ( addr . new. lev.dst, f rj*»- quantizer locts-oct 1 .mods. oct.M_S 

) 

} else 

mode (oct ) sM.STOP; 
break; 
case M.STXLt: 

Duf_rinc (but) ; 

if <buf_cet (buf ) ) ( Doxfer taddr.new, lev,dst.frtnh->quanti2er(octs-oct],; 
else mode [oct ]»H_STOP ; 
break; 
case H_LFFIM_STJLL: 

intOecLevdev, 3eQh->precision-fnnh->Quanti2er(0) ,buf ) ; 
RevOntLPFtnev, lev, frmh->quantizer ( 0) ) ; 
Put Data <addr,nev,dst ) ; 
mode (oct) =K_0OIT; 
break; 
case M_LPFIM_SQID: 
buf.rinctbuf ) ; 
if (buf_get (buf ) ) { 

CetData(addx.old,dst); 

HuffDecLevdev.touf ) ; 

RevOntDeltainev.old.lev. t rrah-»quantixer (0) ) ; 
PutData(addr,new.dat) ; 

) 

mode t oct ]»K_jOUIT; 
break; 

) 

switch (mode (oct)) { 
case M.STOP: 

StopCounters (node, oct, mask.blk,x.y . oct s) ; 

break; 
case M_QUIT: 

break; 
default: 

DovnCount ers (mode. oct. mask, blk) ; 
break; 

) 

) while (mode [oct) !»M_O0XT); 

) 



WO 94/23385 



PCT/GB94/00677 



•682 - 



ingineermc : KiicsCcde: CcmpPic: : XiicsDec .c 



/• F\mcticr. Name: KiicsDecode 

Ascription: Decode a irame :o rjv (del transformed image 
Arguments: src - destination result 

dst - transformed destination memory tanc old for videos) 
wr.ether this frame was shipped 



Returns : 



extern void KLCOFYIshcrt 'dst. short 'src. long area); 

extern void KLHALF ( short -dst. short -src. long size_0. long size 1); 

extern void KLICS3C2SE*tU short -dst. lcnc size.x. long sixe_y. short ncnnsf4]( 

extern void KLICS2C1STILL( short -dst. long six?_x, long sizely. long lp£u, 

extern void KLJCS3D2STXLLC short -dst. long size.x. long si:^, Ion? lpfbits' 

extern void KLICS2D1SEND( short -dst. long size.x. long size_y. short nomsMj [ 



•define flag.tree 0x1 
•define flag. wave 0x2 

yoid KlicsDecode* short -src(3]. short -dst(3J. KlicsSeqMeader -seqh. KlicsFraweH 

long channel, i; 
short norms (4 ] (2] : 
unsigned long syncl, «ync2; 

<or(i«0;i<4;i**) { 

normsfi] I0)«( l<<frmh->quantixer(i)-l)-l; 
^ norms (i J dNf nnh->o^iaxitixer ( i] .* 

buf.rinit (but ) ; 

if (01 «<flaga*fleg_tre«) ) { 

syncl sCetTime rvalue (i aynci ) ; 

for(chAnnelaO;channel<»«Qh->channel3;char4nel*») { 

mt si *«f2)c(se^->seo^*nce_site{0)>>(chAnnelssO?0:se^h->8ub_sainpl 
s©Oh->seauence_3i2e (1 ] » < channe 1 »»0?0 : 3e©2i-> sub. sarnie ( 1 J ) 
cre«_sixer2)»(3iae(0J»scale(0).*ix«(l)»8cal«(0J ), 
octs»««qh->octave3(channei»«0?0:lr; 

fifdef HO 

if <0!.(fnnh->flag34KTH_OTRA>> 

XLZ£RO(dst (channel] , tree.sizef 0] *tree sized] ) ; 
/# ^ I 5 £ ? CHA> ^ <d *cfchannel).octs-l t tree.siIe(0],txee.3izeri) . (long) fseq 

if (channe*. .0) KlicsDecY(dst [ channel J , octs, tre*_sixe, f rmh, segh, buf ) ; 
elae KlicsDecUV(dst (channel] , octs. tree.size . f nnh. seqn. buf > ; 

long aub_tabtl3]«<4,2. 10. 2*8«tree_siie(0 J , 10*8»tree_sire (0] f 

*'tree_size{0] , 2*t ree.size (03 . B*2»tree_sixe[0) , 10* tree six 
4*4 • tree.sixe (0] .2»2*tree_size (0) ,10*2- tree_sixe{0] . 2*10»t 

if (0!-(frah->flag34JCrH_lKTRA) ) { 

KLZEROfdat (channel) . tree.sixef 0] • tree sized] ) ; 
if (octs*«3> 

KLIC£3D2STILL(dst (channel) . tree_sixe(0) . cree.sixel 1] . (long) (se- 
els*) 

KLICS20aSTILLtdst(channel].txee_size|0).cree_size(l]. (long) (se- 

I exse 

if 1octs«s3) 

*XXCS3r>2SB*D<dst [channel J , tree.sizef 0) , cree.sixed ] , tnorms ,4bu 

else 

KLICS2D1SEND (dst (channel ] . txee.size ( 0 ] . t ree.size d ) . inonts . tbu 

) 

sync2»CetTimerValu*(tsync2) ; 



•else 



*endif 
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* t r ee* sync 2 - sync 1 ; 

) 

if 10 !« : flagsif lag.wave) ) i 

sy©cl»GetTimerValue ( isyncl ) ; 

tcr : ctannel =0; chAim«l< seqn->chann«ls; channel ) ( 

:nt size (2 ) = ( seen- > sequences; ze ( 01 >> ( channel =*0?0 : seqh->sub_sanrpl 
seqh -> sequencers iit CI! >>( channel = =0?0 : seqh->sub_saiTple( i 1 ) 
wave.size (2 ]» (size (0]>> scaled] . size ( 1 ]>> scale ( 1 ] } . 
oct s=seqh->octaves (channel »e0?0: 1] ; 

switch (seqh->wavelet) ( 
case wt Haar: 

if (scale(l)>«cale[0] ) 

KLHALF (dat (channel] . sre Ichannel] » vave.aizefO] .wave_si2e[ 11); 

else 

KLCOPY (dst (channel J . sre (channel] . wave.size (0) •wave_size ( 1 ) J ; 
HaarBaclevard (sre (channel J . vave.sixe, octs-scaled J ) ; 
break; 
case WT_Deub4 : 

if (scale{0]»0) ( 

if <scal«(l)>3cale[0]> 

KLHALT (dsc (channel ] . sre (channel ] , wave.siiefO] , vave.sixe (1 J 

else 

KLCOPY (dsc { channel ) , sre ( channel I . vave.size [0] # vave_s ize ( 1 1 
Daub4 Backward* arc (channel] , wave.size. oct s- scale fl] ) ; 
} else 

If ( channel »«0) ( 

KLCOFY (dat (channel ) , sre (channel] . wave_aix« (0) ♦vave.sixe (1 1 
Bac)cvard3511 (arc (channel ] , vave.f ixe, octa-scale (1 ] > ; 
) else 

TOPBWO<dat (channel] ,arc(chajinel] . wave.aixe(O) . wave.aized J 

break; 

) 

) 

sync2cGetTiffierVelue<fcaync2> ; 
*wave?sync2 - syncl ; 

] 

) 
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• © Copyright 1993 KLICS Limited 

• All rights res«rv«a. 
• 

• written by: Adrian Levis 



* Klics Ccdec 
*/ 

•include " ImageCodec .h* 
•include <fixMath.h> 
•include <Errors.h> 
♦include <Packages.h> 

•itdef PERFORMANCE 
t include <Perf.h> 

extern TP2PeriGlcbals ThePClobals; 
•endii 

•if del DEBUG 

♦ define DebugHsc/l val) DebugStr (val > 
••1st 

•define DebugMsg (val) 
•endif 



•define WT.Haar 0 
•define wr_Daub4 1 

'define None 0 

•define Usee 1 

Odefine Usel« 2 

•d.fine Use32 3 

•define UseF32 4 

/• version information •/ 

•define XLICS_CODEC_REV l 
•define codeclnterf aceversion 1 



/* high word returned in component Get Version 



■ define klicsCodecForraatWame *Klics* 
•define klicsCodecFormacTyp* 'klic 

pascal Component Re suit 

KiicsCodec (Component Parameters *params.char ''storage); 

pascal Component Result 

KLOpenCodec (Component Instance self ) ; 

pascal Component Result 

KLC 1 os eCodec (Handle storage* Component Instance self); 

pascal Component Re suit 

KUTanDo Select or ( shore selector ) ; 

pascal Component Re suit 
RLGet version () ; 

pascal Component Re suit 

KLGetCoriec Tnf o t Han41* ff^enrr*. Ccdednf ? •inft>); 
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pascal Component Re suit 

KLGetHaxCcmoressicnSize (Handle storage. PixiapKendle src.ccnst Rect 'srcRect . short * 
CcdtcQ quality, long 'sni); 

pascal Component Result 

KLGetCompressecXT.aQeSi2e (Handle storage, ImageDescripticnHandle desc.Ptr data, long- 
C^taProcReccrdPtr dataProc. long •size); 

pascal CompcnentResult 

KLPreCompress( Handle storage, register CodecConpres 3 Parana # p) ; 
pascal long 

KLFreDecompressi Handle storage, register CodecDecompress Para/to *p) ; 
pascal long 

KL£andDecompres» (Handle storage, register CodecDecompressParams w p) ; 
pascal long 

KLBandCompress (Handle storage, register CodecCampressParams •p); 
pascal CompcnentResult 

JOGetCampressionTime (Handle storage, PixMapHandle arc, const Rect *srcRect, short dep 
CodecO •spatielOuality,CodecO •temporalOuality , unsigned long •time); 

/♦ Function: KlicsCodec 
* Description: KlicsCodec main despatcher 
•/ 

•ifdef DECODER 

pascal Component Re suit 

KlicsDecoder (CooponentPaxametexs *params,cbar ** storage) 
'else 

♦ifdef O9C0COI 

pascal Component Result 

RlicsEncoder ( Component Parameters 'parens, char •* storage) 
ftelse 

pascal Component Ream It 

KlicsCodec (Component Parameters 'parens, char ** storage) 

tendif 

vendif 

( 

CSErr err; 

switch ( params->vhat ) { 
case kComponentOpenSelect: 

e rr =Ca 11 Component Tunc t ion (pa rams, (Component Function ) KLOpenCodec) ; break; 

case kComponent Close Select: 

err»Cal!ComponentPunctionWithStorage (storage. params. ( Component Punct i on )KLC 

case kCcnponentCanDoSelect : 

err »CallCoraponent Punct ion (pa rams. ( Component Punc ti on )KLCanDoSe lector) ; bree 

case kComponentveraionSelect : 

er r >CallCcopa&ect rune t ion (pa rams. (ComponentFunccionJKMetVersion) ; break; 

# ifdef DECODER 

case codecPr eCanpresa : 
case codecBandCorapreas: 

err»codecUnimpErr; break; 

telse 

case codecPr eCompress : 
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eri=Car?CcT^cnentFunc: icnwicfcSicrage i sccrage. para/ns . (C exponent F unci :or.) KLP 

case codecSandCcmpress : 

err*CallCcinr;cnent Funct icnwithStc:age i s:orage. params. (Ccmponent Funct lonJ KLS 

»endif 

•i:de£ DJCODER 

case cDdecPreDeconpress: 
case crrdecSar.cirec empress : 

err=cccecCnunp£rr : break; 

■else 

case codec PreDeccmpre ss : 

err*CaliCcmpcnentFunct icnWithStcrage I storage, params. (CorrpcnentFunction)XLP 

case codec BandDeccn^iress : 

errsCailCortponentFuncticnWithStoracje (storage, params. I Component Funct ion 1XLB 

•endif 

case codecCDSecMenceBusy : 

errsO; break; /• our codec is never asynchronously busy 

case codecGetCodecInfo: 

err»CailConpcnentFuncticnwithStorage (storage, par ajis, ( Component Funct ion) KLG 

case codecGetCompressedlmageSije: 

err sCallCoTOonentFunctioawathStcrage (storage, params. (Component Function) KLC 

case ccdecGetMaxCompressionSize: 

erx=CallConponentFunctionWithStcrage (storage, params* (Componencrunction)KLC 

case codecGetCoetpressionTime: 

err aCa 1 IComponanc runct i onwichSt or age ( storage , params . (Component runct ion ) KLG 

case codecGet Similar icy : 

arrscodecUninpErr; break; 

case codecTrimlmage: 

err»codecUnispErr ; break; 

default: 

err=paramErr ; break; 

) 

i* (err!»noErr) 

Debug Msg ( ' \pCodec Error*): 
return (err) ; 

) 

# include <henvcry.h> 
•include Resources . h> 
(•include <OSUtils.h> 

• include <SysEax>.h> 

tinclude <StdIO.h> 

• include <Tirne.n> 

•include <Strings.h> 
•include <String.h> 
•include •Bica3.h # 
•include •KlicsHeeder.n* 

• include 'KlicsCncoda.h* 

void DebugSt ring (char 'string) 

f 

DebugStrt string) ; 

l 



rMfs ^*, , rr rum /dim r *iC\ 
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extern s. w .ort gResRef 

cypedef struct { 

rodeclnfo "infc; 

Ptr cabf4] 

snort use M] 
\ SharedClcbais; 

typedef siruct ( 

KlicaLHec kle 
short 'srcm 
shore 'dst[3] 
Ptr pijonap; 
long size; 
long. using; 
long scalef31; 
unsigned long prev_ frame; 
unsigned long real.frame; 
unsigned long dpy_ frame: 
unsigned long run. frame; 
unsigned long sys_time; 
unsigned long tree.time; 
unsigned long wave.time; 
unsigned long dpy_t ime ; 
unsigned long run_time; 
unsigned long key.time; 
unsigned long sync.time; 
Boolean ouc (15] ; 
SharedGlobals •shaxedClob; 
) Global*; 

scaling scenarios: Tree wave Out 

1 i 0: internal calculations are Quarter size, output Original aire (interpo 
1 1 l- internal calculations are Quarter size, output Quarter size 
0 1 U Internal calculations are Original size.- output Quarter size 
0 0 0: internal calculations are Original size, output Original size 
0 0-1: internal calculations are Original size, output Double size 

t 

void KLDcallocateiClobala ••glob); 
./• Klics Function Definitions •/ 

extern i nt KlicsEncode ( short •srcOl. short *dstT31. KlicsE r1 i 
Boolean KlicsDecode (short /src|3K short ^eoh.Kl. 
long mode, long scale(3). unsigned long -tree, unsigned long wave). 



/• 
/• 
/• 
/• 
/• 
/• 
/• 
/• 
/■ 
/• 
/• 
/• 
/• 
/• 

/• 
/• 
/• 
/• 
/• 



Encoding parameters •/ 

YUV Frame buffer •/ 

YUV Frame buffer •/ 

Encoded pixmap data •/ 

Size of Previoue Frame Buffer •/ 

Which lookup table are we using for colour 

Tree. wave. Out scales unoriginal. -l=Doubl 

Previous frame number •/ 

Previous real frame <no skips) •/ 

Previous displayed frame •/ 

First frame in play aeguence •/ 

System overhead for previous frame */ 

Typical tree decode time (not skipi */ 

Typical wavelet transform time */ 

Typical display time •/ 

Time ot first run frame •/ 

Time at last key frame •/ 

Sync time •/ 

Displayed? •/ 



Memory allocation/deallocation routines 



OSErr 

Mciaory Error ( ) 

( 

OSErr thefirr: 

♦ifdef DEBUG 

if (0! »<theErrsMereError () ) ) 
retugSr r ' * * pM*nr* ry Err or " ? ' 
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•endif 

return i theErr) ; 



CSErr 

TreeFirtPcr *ptrl 

CSErr cheErraO; 

if fpcr:=nii) ( 

DiapoacPtr t *ptr) ; 
•ptr=nil; 

cheErr-MemoryErrcr( ) ; 

} 

retuml theErr) ; 

) 

•define FreePcinter (handle, err ) \ 

if (ncErr (err=FreePtr! (PtrM Uhandle) ) ) ) recumlerrl 

extern OSErr Colour8(Ptr •); 

extern OSErr Colourl6iPtr •); 

extern OSErr UV32Table ( Ptr • i : 

extern OSErr SGBTable (Ptr •); 

CSErr 

KLGetTabtClobals "glob, long new) 

( 

OSErr thaErrsO; 

SharedGlo&als *sGlob* ( # a/lobJ ->sharedClob; 
long old» < *glob) *>using; 

if (old!=new> { 

il (old! -None) ( 

sGlob->uae (old-1 ] — ; 

if <sClob->uiafcld-l)»»0) { 

FreePointer lsClob->tab(old-l) . theErr) ; 

) 

) 

if (new'sNont) < 

if (sClob->use(new-l] «»0) 
switch (new) < 

•ifndef ENCODER 

case Use8: 

if inoErr!s<:he£rr*Colour8 i&sClob->cab|new-l] ) ) ) 

return ( theExr ) ; 
break; 
case Usel6: 

i f tnoErr ! « < theErrrColouxl6 UcGlob->tab;nev-l ] ) } ) 

return (theErr) ; 
break; 
case Us«32: 

if (nc/Err: = (theErr=W32Table(4sClob->tab(new-l] ) ) ) 

return t theErr) ; 
break; 

•endii 

tiindef DECODER 

casa U«eF32: 

if ( ncErr! st theErr =RG3Table UsGlob->tab( new- 1] ) 1 1 

return (theErr) : 
break: 
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■endii 

) 

( *glob) ->usir.g»n*w; 
sCloD->use(new-l ]*♦; 

) 

return! thelrr) ; 



OSErr 

XLFree<Globals ••glob) 

t 

OSErr theErr«0; 

FreePointert Cglob) ->src f 0 J , theErr) ; 
FreePointer< ( •glob) ->dsc (01 , theErr; ; 
FreePomter( (»glob) ->pijcnap, theErr ) ; 
(•glob) ->5ir«s0; 
return UheErr) ; 

; 

•define NevPointer(ptr, type, size) \ 
saveZonesGet Zone ( ) ; \ 
Set Zone ( SystemZone t ) ) ; \ 
if (nil»«(pcr»(cyp«)NewPtr(?ize) ) ) ( \ 
Set Zone < ApplicZonel )) ; \ 
if (nil»»(ptre(type)NevPtr<aize> ) ) ( \ 
SetZonetsaveZone) : \ 
return ( Me»ioryError ()) ; \ 

) \ 

) \ 

Set Zone (save Zone} ; 



Component Result 

KLMallocfGlcbals ••glob, short height, short width* long pixelSize) 

( 

long ysize, uvsize; 
THz. saveZone; 

ysizes (lcng)height * (long) width * (long) sizes ft short ) ; 
uvsize ■ ysize>>2; 

if ( ( •glob)->siae i« ysize) ( 
XLFree(glob) ; 
t •glob) ->size s ysize; 

( •glob)->prev_tza»e«-l; /• frame doesn't contain valid data •/ 

/« Keep Src and Cat separate because of their lary*j sizes */ 

ysize* (long)height * (long)width • I long) si zeof ( short) » 2 • ( -glob) ->scale 
uvsize ■ ysize»2; 

NewPointert (*glob)->src f 01 .short * ,ysize«*uvsize*uv3ize*16) ; 

fglob)->erc(l) ■ (short •) ( ( (long) Cglob) ->src[0] ♦ ysize * 3D & QxTTTTT 
Cglob)->src(2J ■ (short *)(( (long) ( -glob) ->erc(U ♦ uvsize ♦ 3D 4 OxTrTF. 

ysize* (long) height • (long)width • (long) si zeof (short ) » 2* ( 'glob) ->scaie 
uvsize • ysise»2; 

NevPointerl (•glob) *>dst 10) , short • ,ysize*uvaixe*uvsixe*l€) ; 

cglob)->dst[l] e (short •)(( (long) ( -glob) ->dst fOJ - ysize ♦ 3D £ OxJTJTT 
fglob)->dat{2J » (short •) ( (Uong) ( -glob) ->dst (1) ♦ uvsize ♦ 3D k OxFFTF 
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^ NevPointer( (•glcfcj-^pixtf-ap. Ptr .pixelSize/6 •heigh: •wic;h-:<: i : 
retumi noErr) ; 

) 

CSErr 

RescurceError i ) 

CSExr theErr; 

•lfdef DEBUG 

if (Ois (CheErrsResError < ) ) ) 

DebugStr ( • \pResource£rror* ) ; 

•end if 

return (theErr) ; 

) 

*ifdef COMPONQJT 

•define ResErr ( res file, err) \ 

if (0! » (errsResourceError ( > ) I { \ 

if <resfile!=0) CloseComponentResFile(resf ile) : \ 
return terr); \ 

) 

• else 

fdefine ResErr (reaf ile. err) \ 

if < 0 i * (err*ResourceError U )) ( \ 
return (err t ; \ 

) 

•tndif 

Corr^onent Result 

KLOpenlnf oRea (Component Instance self. Handle •lp.fol 

t pragma unused(self) 
short reaFile=0: 
OSExr theErr snoErr; 

if Cinfo) { 

DispoaHendleCinfo) ; 
•info»nil; 

) 

•ifdef componott 

resFile»OpenCcmponentResFile< (Component ) self ) ; 

ResEri (resFile. theErr) ; 
*else 

UaeReaFile(gReaRef ) ; 
•endif 

•info*CetlReaource(codeclnf oReaourceType. 128) ; 
•mfoeCetlResource icodeclnf oResourceType, 129) ; 
ResErr (xeaFile, theErr) ; 
LoadRe source ( * info ) ; 
ResErr (roaF ile. theErr) ; 
OetachResource ( *inf o) ; 
tifdef COMPONENT 

CloseCompcnentResPilelresFile) ; 
•endif 

return (theErr) ; 



pascal Component Result 

KLOpenCodec ( Conponenc Instance self) 

( 

Clobals ••glob; 
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SharedClcbals *sGlob; 
TH2 save Zone; 

Boolean inAppHeap; 
Component Re suit result = noErr; - 
short r«sFile.CuxReaFile( I ; 

DebugMsgc "\pOpen Codec - begin'); 

it ( i.gleb • 'Clcbala JNevHandleClear ( sizeof (Giobaia ) ; ) =. nil l { 

return ( MemoryError ( ) ) ; 
} else HNoPurget (Handlft)glob) ; 
Set CoffsonencInatanceStcrage (self . (Handle J glob) ; 

saveZone = GetZoneO; 

inAppHeap » { Ge t Component Inst anceAS (self ) ' ! = 0 ); 
if ( ! inAppHeap ) 

Set Zone (Systemzonet ) ) ; 

if t (sGlcb=(SharedGlobals«)CetConpcnentRefcon((Con^onent)self)J » nil ) i 
if ( (sClcb » (SharedSlobals*>N«vPtrClear(3i2eof ( ShaxedClobals) >) nil ) 
result shemory Error ( ) ; 
goto obail; 

) 

^ SetCcrnpcnentRefconf (Component ) self , (long)sGlob) ; 

(*glob)->sharedGlob • aClob; // keep this around where it's easy to gee ac 

if ( sClob->info « nil It • (Handle) aClob->info »* nil ) { 

resultsKU^panlnfoRes (self ,4 (Handle) (sGlcb->info) ) ; 
^ HNoPurge ( (Handle) sGlob->inf o) ; 

obail : 

SetZone ( saveZone) ; 

if ( result is no Err t& aGlob !s nil ) ( 

if ( sGlob->info ) 

DisposHandle( ( Handle )sGlob-> info) ; 

DisposPtr ( (Ptr)sGlob); 
^ SetComponentRefconf (Component) self, (long)nil); 

( *glob> ->size«0; 

DebugMtgt *\pOpen Codec - end*); 
return (result ) ; 



pascal Component Re suit 

KLCloseCodeci Handle storage. Component Inat once self) 
SharedGlobals *sGlob; 

Globals --glob a (Clobals J storage; 

DebugMagf °\pClose Codec - begin*); 
HLocic( storage); 
if ( glob ) ( 

KLrree(glob); 

KLGetTabl glob. None) ; 

if (CountCos9>onentXnscances( (Cooponanc)self ) 1) ( 

if ( (eGlob*<SharedGlobala») ( •glcb)->sharedGlob) ! - nil ) ( 
if ( sGlob->info ) 

H?urge( (Handle) sGlob->iafo) ; 

) 

Dispos Handle 1 1 Handle) glob* ? 
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heignt • 12G» 

I 

if :::me> 

•tirne = (width * height • ID: 

it spacialOualicy (4 •spatialOualicy-scodecLosslessOualicy ) 
•spacialQuality = codecMaxOualicy ; 

if : tenpcralOuality •ce^cralOual ity==codecLosslessOuality ) - * 

•tempcralCualicy - cocecMaxCuality ; 

return i noErr I ; 

J 

/• 

• Extends dimensions to make a multiples of 32x16' 
•/ 

•define KLExtendWidth (dim) 31- (diin-l&31 ) 

•define KLExt endHeignt ( dim) IS- (dim-l&15) 

pascal Component Re suit 

KLGetMaxCompressionSize (Handle storage. PixMapHandle src. const Rect •srcRect . short 
CcdecO Quality. long •size) 

( 

■pragma unused ( storage, src, depth. quality! 

short width = srcRect->right - srcRect->left .• 
short height = srcRect ->boctom • srcRect->top: 

/• zest by just doing RGB storage •/ 

•size ■ 3 • (width-KLExtendWidth (width) ) • (height ♦ KLExt endHeignt (height )) ; 
return (noErr) ; 

) 

pascal ComponentResult 

XLGetCon^ressedlmageSize (Handle storage . ImageDescript ionHandle desc. Ptr data, long • 
DateRrocRecordFtr dataFroc, long *9ize) 

< 

•pragma unused t storage. dataSixe. dataProc. desc) 
short frmn.size; 
long date.size; 

if ( size =« nil ) ( 
return iparamErr) ; 

) 

:rmh_size« ( (KlicsHeader • )data) ->de3crlption_length; 
caca_size= ( (K lies Frame Header • ?data» ->lengch; 
*sizes ( long) f rmh_size*dat a.size; 
return (noErr) ; 



void KLSet up (Boolean still, short width, short height, CodecQ space, CodecO tern 

( 

kle*>seqh.heed.descxiptiozi_le&gth«sizeof (KlicsSeqHeader) ; 

k 1 e - > s eqh . heed . ver s i oiunuaber f 0 ] = 0 ; 

kl e- > seqh . heed, vers ion.nunder j 1 ) m 1 ; 

kle->seqh. sequencers ise (0)«vidth; 

kl e- > sean . sequencers i ze ( 1 ] «height ; 

kle->seqn.sequence_siie (2J«0; 

Jtl e- > seqh . sub.eanple 1 0 ) « 1 ; 

k 1 e • > s eqh . su&.sanple ( 1 ] ■ 1 ; 

k 1 e - > s eah . wa ve 1 e t BVT.Daube ; 
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kle->seqh.precTsion»10; 
kle->seoh.cctaves i 0 ] r 3 : 
kle->sec]h. octaves (li s2 ; 

<Je->Crntfi.head.d«scripeion.lenffehasiteo£rKlicsFrameMeader» ; 
<le->f rrnh. head, vers ion_nvunber(0| =0; 
kle->£rr*h.head. version_number( 1J r » ; 

We->encd.SoJ.in.(2133^t«np*lfiO)/8: /• High = 64000 bins/ frame. Poor * 1 

x:e->encd.opf _out = kle->encd.bpf_in; 
<ie->«ncd.buf _3i2e=kle->encd.bpf,in # 4 ; 

kle->encd. quant =16- (space* 15 J / 1023; 
kle- >encd. threshsl. 0; 
kle->encd. compare* 1 . 0; 
kle->encd. base ( 0] »0 . 1C ; 
kle->encd. based ]=0. 10; 
kle->encd.baaef2 j-O^O.- 
kle^encd.baseO J=0.50; 
kle->encd.ba^e|4 j«l .00; 
kle->encd. intra=still; 
kle->encd.auto.g=true; 
kle->encd.buf_sv»true; 
kle->encd.prevquactsl; 
kle->encd.prevbytes»13; 



lifndef DECODER 
pascal ComponentResult 

KLPreComprase (Handle storage, register CodecCenv>ressP*rama -p) 

Component Result result; 

CodecCapabilities • capabilities . p->cap*bilitiea? 

3 {j ort ^ i ^ c ^»**P->i™aeDescription)->width*(capabilities->extentJW 
i? 0 " < # P->imageDeacript ion) ->height* ( capabilities ->«xt en- 

Cabals ••globe (Clobala *♦) storage; 

KlicsE kle*4 (*glob) ->kle; 

Handle ext.NewHandle (siieof IKlicsSeqHeader) ) ; 

DebugMsg I • NpKLPreComcross* ) ; 
KLock i storage) ; 

if (MemError t ) imoErr) return (HemError ()) ; 
switch ( ( •p->imageOescription)->depth ) ( 
case 24 : 

capa±>ilitiea-»vantedPixelSixe « 32; 
kle->seqh.channela»3; 

if (noErr:» {r«sultnKLC«ctab(glob. T JseF32) ) ) 

retumtresult ) ; 
break; 
default : 

return (codecConditionErr) ; 
break; 

) 

/• Going to use 3 octaves for Y and 2 for UV so the image must be a multiple o 



capabilitiee->bandMin • height; 
capabilities->bendlnc « capabilitiea->bandMin; 

c apabi 1 i t i ea - > f 1 agascodecCanCopy Pr e vConp I codecCanCopy Prev ; 

<*glob)->scale(0)«0; 
<*9lob)->scaleri1«0; 
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Cglcb)->scale(2]=0; 

if ir.oErr! = I result = KLMalloc (glcb. height, width. 01) > retjrn result; 

KLSe t up l p- > sequence I C= = 0. width. height, t *p- >imaceDescnp: ion) - >spatialOuality . I 

BlcckJicvef IPtr ;4kle->3eQh. • ext . sizeof (KlicsSeqKeader i I ; 

it :nc£rr ! = t resuit = Set ImageDescripcicnXxtejisicn (p->imageDe script ion, ext. klicsC 
ret-rr. result: 

HUnlock ( storage ) ; 

DebugMsg ( * \pKLPreCompress success* ) ; 
return (result ) ; 

) 

«endif 

*i:nde£" DtfTODER 
pascal long 

KLPreDecorrpress (Handle storage, register CodecDecompressParams 'pi 

( 

Component Re suit result; 

CodecCapabilities 'capabilities s p->capabilit ies; 
Rect dRect = p->srcRect; 

long width; 
long height; 
long channels; 

Glcbals ••glob«(Globals •■(storage; 

KlicsE kle; 
Handle ext; 
OSErr erri 

Debugnsg ( * \pKLPreoecotrcress* ) ; 
it i :Tranaf ormRect (p*>raatrix. tdKect ,nil) ) 
return ( code cC ondi t ion£rr ) ; 

HLock (storage) ; 
klesi (*glob)->kle; 

switch ( < *p->imageDescription) ->depth ) ( 
case 24; 

switch (p->dstPixMap.pixelSize) ( 
case 32: 

capabilitiea->vancedPixelSize = 32; 
if (p->condit ionTlags&codecConditionNew Depth) { 
it (noCrr<tr(«rr*KLC«tTab(glob.Use32) ) ! 
return (err) ; 

) 

break; 
case 16: 

capabilities->wantedPixelSize = 16; 
if (p->conditionFlags4codecCondicionNewOepth) ( 
if mo£rr!= (err»KLGetTab<glob. Us«16) ) ) 
return ( err ) ; 

) 

break; 
case 8; 

capabilitiefl->wantedPixelSize = 6; 
if (p->condicienFlagstcodecConditionN*wClut ) ( 
if (noErr!* (•rr»KLGatTAbtglob.Use8) ) ) 
ret urn ( err ) ; 

J 

break; 

> 

channels* J; 
break; 
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default: 

return ( codecCcndit ionExr i ; 
break: 

) 

if (ncErxi ■ (result »Get ImageDescripcicnlxtensicn ip-> imageDescr ice icn. iext kl ; cs* 
MocXMovet -ext. { Ptr i ikle->seqh. sireof (KlicsSecjHeaderi ) ; 
if < choline ls»sl) kle->seqh. channelssi; 

/• Going co use 3 octavas for Y and 2 for UV so the image trust be a multiple o 
*ifdef HQ 

{•glob>->scale{0]=0; /• Tree scale •/ 
•else 

Cglob)->scale[0]«l; /• Tree scale •/ 

width*kle->aeqh. sequencers iiefO] ; 
height=kle->segh.sequence_sixe{ 1] ; 

switch! eglob>->scale(0] ) { 
case 1: /• Quarter size internal */ 
Cglob)->scale[l]«l; 

if (p->matrix->natri>{0) [0) ■•p->matrix->matiix[l] [1] ) 
switch (p->roatrix->macxix (0] (0) ) { 
case 32768: 

capabilities->flags»codecCanScale; 
capabilitieo->«txtendwidth*width/2 -dF.ect . right ; 
capabilities->«ct«ndHeight«height/2-dRecc.bottora; 
. eglob)->ecale(2)»l; 
break; 
case 65536: 

capabilities->exterxa*idth*vidth-dRact. right; 
capabi 1 i t i es - >ex t endHeight »he i ght -dRect . bo 1 1 om; 
< •gioJbj *>scale[2]-0; 
break; 
default: 

capabilities->excendWidthoO; 
capabilitiea->extendHeight*0; 
(•glob)->scaleC2)*0; 
break; 

) 

else < 

capabilitiea->extandWidth»0; ' 

capabil i t ies - >ext endHe ight *0 ; 

fglob)->acale(2!»0; 

) 

break ; 

case 0: /* Pull six* internal */ 

if (p->matrix->raatrix(0) |0)«*p->roatrix->matrix[l ] [1] ) 
svitch<p-xnacrix->matrix(OJ [0] ) ( 
case 32769: 

capabilitiea->f lagsscodecCanScale; 

capabilitiea*>«.<tendWidthsvidth/2 -dRect . right ; 

capabilities ->es:tendHeight =height/2-dRect . bottom; 

(♦glob>->scalefl}«l; 

(♦glob)->acale(2]*l; 

break; 
case 131072: 

capabilit ies- > f laga*ccdecCan£ca 1 e ; 

capabilit ies->€xtendwidthswidth*2 -dRect . right ; 

capabilit ies->axtandHeight*haight*2-dA«ct.bottoa; 

<*9lob>->sceleU)»0; 

Cglob)->8caler2)»*l; 
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creak; 
case 65536: 

capebilicies->cxcendWidth=w:dth-dRecr . right : 
capabilities- >«xtenclHeighc=heigh: -dRecz . boctcm; 
rglcb>->scale(l]*0; 
{•glob)->scalel2U0; 
creak; 
default : 

:apabil ities->extendwidth=0; 
capabii ities->extendKeight sO; 
fglob>->scale(l]=C; 
(•glob) ->scalef2)=0; 

) 

else { 

capabilit iea->€xten<JWidthaO; 
capabilicies->exr:endHeightsO; 
l •glob) -> scaled ] *0; 
Cgiob) ->scale[2] =0; 

) 

break; 

) 

capabilit ies->bandMin = height? 

capafcili t ies->bandlnc » capabilities- >baLndHin; 

capabili t ies - > flags I ^codecCanCopyPrev i codecCanCopyPrevComp 1 codecCanftemapColox ; 
if (noErr ! » ( r«t ult »KLMalloc (glob. height, width* capabili ties- >vantedPixelSize) ) ) 
KUnlockt storage) > 

DebugMsg ( ' \pKLPreDecompreas success" ) ; 
return (result ) ; 

/ 

•endif 

/■ Test versions in C - Colour. c •/ 

void RGB2YUV32 ( long •pixxnap. short »Yc, short # Oc, short *vc. int area, int wid 
void YW2RGB32{lcng -pixmap, short # Yc. short # Uc. -short *vc. int area, int wid 
void YUV2RGB32x2 (Ptr calfle.long # pixnap, short •Yc. short *Uc. short •Vc. int a 

/• Assembler versions - Colour.* */ 

OUT32X2(Ptr table. long *pixmap. short *Y. short •O, short *V. long width. long height. 1 
0'JT32X2D(Ptr table, long •pixmap. short *Y. short *U. short *v.long width, long height. 
(XT32tPtr table. long *pixmap, short *Y. short •U, short "V. long width. long height. Ion* 
OUT32D(Ptr table. long 'pixmap. short *Y. short *U. short *v ( long width, long height, lo: 
O f JT8X2 <Ptr table, long *pixmap, short *Y, short *U. short 'V. long width. icng height. lo: 
OUTS (Ptr table. long "pixmap, short *Y. short *U. short *V. long width. long height. long 
OUT16X2(Ptr table. long •pixjcap. short *Y. short •O. short *V. long width. long height, 1 
OUT16(Ptr table. long *pixmap, short *Y. short *U. short *V.long width. long height. Ion- 
IN32(Ptr table. long •pixmap, short 'Y, short *U. short *V, long width, long height. long 

/• Assembler versions - Color2.a */ 

void RCB2YUV2 ( long *pixmap, short *Yc, short •Uc, short *Vc. int area, int wide 

void YUV2RG&2 (long "pixmap, short "Yc, short *Uc, short *Vc, int area, int widt 

void YUV2AGB3 (long "pixmap, short *Yc, short *Uc, short *Vc. int area, int vidt 

void CKTY2Y(long • pixmap, short *Yc, int area, int width, int cols); 

void Y2GREY ( long •pixmap, short *Yc. int lines, int width, int cola); 

void Y2GCC(long -pixmap, short *Yc, int lines, int width, int cola); 

/•YUV2RCB4 ( ( *glob) ->Table. pixmap. src(0] , sre (1] , arc (2) , cols* ( "desc) ->height»scale.' 
YW2RGB5( ("glob) ->T*ble. pixmap, srcfOJ.srcU ), arc (2) , cols" ( "desc) ->height . width»sc 

•pragma parameter DO Microseconds 
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pascal unsigned long HicrcSeeonds (void! = (OxflEBO. 0x81El. 0x64CJ; 

unsigned long GetTiinerValue (unsigned long •TimerRes) 

t 

•TitnerRea » C LOCKS _FER_S EC- 
re turn (MicroSeccndsf ) iT 

J 

•ifndef DECODER 
pascal long 

KLBandCcrapress (Handle storage, register CodecContpressParams »p) 
^pragma unused (storage) 



Glcbals ••glob a (Clobals ••> storage; 

ImagaDe script ion "desc » p->imageDescript ion; 

char •baseAddr; 

short rovByt as; 

R*ct sRect; 

ion© offsetH.offsetV; 

OSExr result » noErr; 

^ort •sret3], 'dstf31; 

long 'pixinap; 

f^c widths Cdesc) ->width*KlXxtendWidth( <*desc) ->vidth) ; 

heights ( •desc) ->height*KIXxtendHeight ( ( •desci ->height ) ; 

int hvidth»vidth»l.hheight=height»l; 

iAt bytes; 

KlicsE kle; 

char nmuMode»l; 

chax int ra { ] « • NpEHC : Intra -mode " , inter \pENC : Int er-rode • ; 

SharedGlobals •sClob; 



#ifdef PERFORMANCE 

(void) Per f Control <Th*FGlobala. true) ; 
*endif 

DebugMsg ( ' NpBandCompress" ) ; 
HLockf (Handle >glob); 
kl««4( •glob)->kle; 
sGlobs ( •glob) ->sharedGlob; 

rowBytes « p->arcPixxap. rovBytes fc 0x3fff; 
sRect ■ p->arcPixMap. bounds; 
switch ( p->arcPixMap.piselSise ) ( 
case 32: 

o££setH « sRect. left«2; 

break; 
case 16: 

offsetH » sRect. lelt«a; 

break; 
case 8: 

offsetH a sRect. left; 

break; 
default: 

result * codecErr; 

DebugMsg ( • \pError • ) ; 

goto bail i 

) 

offsetV * sRect.top * rovBytes; 

baseAddr • p->srcPixMap. baseAddr ♦ offsetH ♦ of faetV; 
pixmap«(long *) baseAddr; 

/• FSMakeFSSpec (0,0,* \pOser : crspOOl * , if ospec ) ; 

FFpCreeteUrsspec. •????•. *????• ,-11; 
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.-SpOpenDF (*f sapec . t swr Perm. 1 1 HeRe f Numi 
arearh»iohr*rowBycea; 

d«: f S! s *!'?}cS!:>^e!Sj; S«m!!!?Js5!*^H s r c ( f *!"-' lob >-»«<^ 

switch! Ue-> 5 eqn.rh^;i^ < 1 ' 5 : 1 ; : d " ,2) s « *^ ofc ' >°» »2 1 

e "K2* C1 *" >e * ,0 " f "^^ 

) 



Klics encode 



•«ndif * /-wwHu^itti ^rAigstri-\ponlyScreenUpdateM; 

kle->buf.t>ui= (unsigned long * ) (p-xiataosiseof (KliesFram-u— h., .» \ . 
Ue->encd. intra. (p->t.mpor;iOuality..S); * K^csFrajneHeader > ) ; 

k 1 e - > f rrafa . £ r ame.nu3»ber sp - > f r ameJtumbe r ; 

bytassKlicsEncode ( src, dst , kla) ; 

f * g 1 ob J - > pr e v. f r an* sp - > * r aaeNumbar ; 

p->daca+sbyces; 
p->buf ferSite»d/c«a; 

fp->ijnag«De«cription>->dataSixe«tvc«a; 

p->9ifnilaricy»(Jcle*>encd.incra?0;Long2rijc(244) ) • 
p->callerFlags*0; 

/• P->«li«rriag.i.cod«FUg^ 

bail; 

HUnlockf <Handle)globJ ; 
•ifdef PEKFORMAWCE 

»endif 

DebugMagCNpBandCcaiprass success*}; 
recum( result J ; 

) 

*endif 

/* Display stuff for debugging 
CCratPtr vPort. saveFort; 
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Rect Tect ; 

5tr255 str; 

CecPort ( (CrafPtr • ) isavePorc ) * 
SecCWHgrPort liwPcrt ) ; 
SetPor: ( (Graf Ptr ) vport ) ; 
Set Rect rirecz. 0. 0. 5C. 30) ; 
ClipRecc ( trecc ) ; 
EraseRect (irect ) ; 

Num?oStrinotfrmh->fxaiR« number, str) • 
MoveTo(0.20); " 
DrawString(str) ; 
if ( f rmh-> flag s4KFH_ INTRA) { 

SetRect Urecc. 0. 30. 50, €5) ; 

ClipRect Urect) ; 

EraseRect (4rect ) ; 

N , unfroStriag(irwh->t rajne .number /2 4 , str) • 
MoveTo(0.50) ; 
Drawstring i str) ; 

) 

SetRect (4xect. -2000, 0.2000.2000) * 

ClipRect (irect) ; 

Set Port ( (Graf Per) saveport) ;•/ 

♦define flag.tree 0x1 
•define flag.wave 0x2 
•define flag.show 0x4 
•define flag.fuil 0x6 
•define DURATION 66666 

long ModeSwitch<Globals •glob.KlicsPrameHe.der 'frmh) 
long modesO. i. fpa: 

Boolean repeat =glob->prev_frame».f nnh-> frame number, 

« n * xt3 9 lob - > Prev.frame*a= s fniA->frame "number; 

CGrafPtr wPort. savePort; ' 

R»ct xect; 
Str253 stri- 
pe bugMsg(-\pModeSwitch - b^ginM; 
if < frmh->f rame .number bsC) 

for(U0;i<I3;i**) glob->out fij » false: 
if (repeat) ( 

g 1 ob- > run. t ime» 0 ; 

DebugMsgCNpModeSwitch - repeat (end)M; 
^ retumtflag_s.iowiflag.full); 

if (next: 

switch (frmh*>f lags) ( 
case KTH.5KIP: 

Debug«sgr\pModeSwitch - next/skip-) ; 
Clob->prev_fraae«fnBh.>£ r amejiumber; 
if (glob->sys.time>DORATI0N) { 
g 1 ob- > run. t loie ■ 0 1 

if (*lob->real_framei sglob->dpy frame) 
mod« I -flag.wave If lag.anow; 

) else ( 

unsigned long frame, late; 

fraM«glob->run.fram«*(glob->sync.tin»-glob->rvn_time)/Dt^ 

la t e a ( g 1 ob- > sync, t ime -g 1 ob- > run. t ime ) % DORAT ION ; 

if (frajne<»qlob->prev. frame 44 glob-> real. frame !.glob-x*py frame) 
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^ ~ode I r f lag.vave i : lag.show; 

'* il ( ***n*<=glob->prev_rrame ii lace*giob->wave c :ne*glob->cpy tim 

moce i« f lag.wave flag show:*' 

) 

break; 
case XFH.INTRA: 

TebugMsg( -\pMcceSwicch - next / mcra • I : 
mod2 = f 1 ag.tr p.e; 

g 1 ob - > p r ev_ f r ame = f rmh - > i r ame .numbe r ; 
g 1 ob -> r ea 1 _ f r ame ■ g 1 cb - >pr ev_ frame ; 
i* iglob->sys_time>DUBATICN) { 
glob->run w cimesO: 

mode I s £ 1 ag_ wa ve f flag, snow 1 f 1 ag_ f u 1 1 ; 
) else 

/• if (glob->rvn_time--0) {•/ 

glob->key_time=glcfc->syTic_tirae-glob->run.cime; 
glob->run.cime-glob->syTiC_time-glob->6ys_t ime; 
g 1 ob- > ran. £ r ame »g lob- > pr ev_ f r am ; 
mode I - f lag.vave 1 f lag.showl flag f ul 1 ; 
/• ) else ( 

unsigned long frame, lace; 

f rame-glob->run.f rame* <glob->9ync.t ime-alob->run c ime ) / CURATXO 
1 a t e « I g 1 ob- > syn e_ t i me -g 1 ob - > ru x*jl ime ) % CURAT ION ; 
if f frame< -glob- >prev_ frame) 

mode I - f 1 ag. wa ve I £ i ag_ show Iflag full; 

)•/ 
break; 
default: 

DebugMsg < • \pMode Switch - next/inter '» ; 
modes f lag.tr ee; 

g 1 ob- >prev_ f.r ame « f rmh -> f rame.number ; 
glob- > real.fr ame*glob->piev_f rame ; 
if (glob->»y«.tiJT^>DURAT10NI ( 

g 1 ob* > run. t una a.0 ; 

mode I - f lag_w*ave I f lag.show; 
) else 

if <glob->run_time»aO) ( 

g 1 ob- > run.t i me «g lob- > eync.t ine-g 1 ob- > sy s.t ime ; 

g 1 ob- > run. f rame eg lob->prev_ frame; ~* 

mode I • f lag. wave I flag, show; 
} else ( 

unsigned long frame, late; 

f r*me»g lob- > run. frame* (glob->sync_, ime-glob- >run_t ime ) /DURATION 
late* (glob-xync.cime-glob->run.cijne)%DURAT10N; 
if it rame<«glob->prev_f rame) 

mode I * flag, wave I flag, show; 
if lframe<-glob->prev.f rame fcfc late*glob->cree_c ime *glob-> wave 

mode I ■ f 1 ag.wa ve I f 1 ag.show j • / 

) 

breaJc; 

) 

else 

switch* frmh->f lags) { 
case KFH.SXXF: 

Dabugnsg<*\pHodeSwitch - jump/skip*); 

9 1 ob* > run. t ime a 0 ; 

break; 
case KFH.DTfRA: 

OebugMsg(*\pHoderwitch - jump/ intra* ) ; 

mode * f 1 ag. tree I f 1 ag.wa ve I flag, a how 1 1 1 eg. f u 1 1 ; 

for ( i -glob- >prev_f rame; i<£ rmh- >frame_number; i »•♦) 
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^ glofc->ouc lfnnh->f rame_number%i5)*0: 
g 1 cb- > p r ev_ f r ane » f rmh - > f r ame_numbe r ; 
glcb->real_f ranerglob->prev_f ratne; 
g lcb- > run.c ijne= 0 ; 
break; 
default: 

DebugMsgf •\pnodeSwitch - junp/ inter • i 

g 1 ob- > run.c j..ne=0; 

break; 

) 

DebugHsgr \p«odeSwitch - display info*); 
•ifndef COHPONDJT 

/• glcb->out If mfa->f ra^_number%15]» (raode*f lag_show) i =0: 
for (i=C, fps=0; i<15; i*») if (glob->out (i ] ) tps**; 
GetPort < (Graf Ptr • ) tsaveport ) ; 
GetCWMgxPort < iwPort ) ; 
SetPort I (Graf PtrlwPort ) ; 
SetRect ( ixect .0.20.120.50); 
ClipRect (trect ) ; 
EraseRect < tract); 

NunffoString tfrmh->frame_nunber, str) ; 

MoveTo(0.33); 

Drawstring (scr ) ; 

DrawString< B \p: • J ; 

NuaffoStr ing ( fps « scr ) ; 

Drawstring ( 9tr ) ; 

MoveTe<0. 50); 

forti»0ri<15;i**) 

if <glob->outfi] ) DrawStringC\pX*) ; 

else Drawstring ( • \pO" ) ; 
SetRect (tract. -2000.0.2000.2000) ; 
ClipRect Urect) ; 
SetPort ( (Graf Ptr ) sa^ePort) ; •/ 
*endif 

D«bugNag( '\pModeSwitch - end'); 
return(mode) ; 

) 

•ifndef DJCODER 
pascal long 

KLBajidDecofltpr ess (Handle storage, register CodecDecontpreasParains *p) 

( 

» pragma unused (storage) 

Glcbals •*glob = {Clobala ••) storage; 

ImageDescription *'desc * p->iaiageDe script ion; 

int x.y; 

char •baaeAddr ; 

short rowBytes; 

Rect dRect ; 

long of t setH.off setV; 

CSErr result » no£rr; 

short •arc(3].*datC3); 

long •pixmap; 

int width* ( 'desc) ->width*KIXxtendWidth( <*desc) ->width) ; 

int height* fdesc) ->height*KL£xtendHeight ( ( *desc) ->height ) ; 

int hwidtb»width>>l . hheight =height»l . axea»height • width; 

KlicsK klmt 
XlicaFraaeHeader *frrah; 
char mmjMode»l; 
long mods); 
SharedClobels •aGlob; 

/• 

FILE # fpi 
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file.name (30) ; 
wPorr. savePort: 
rect ; 
Str; 



HLock* (Handleiglob) ; 
DecucMsg » ' \pBar.dDecoffvreas * > «* 

! rgiob) ->sys.c imo= Gee Time rvalue (4 ( *glcb) - >sys_c ime J ; 
(•glob) ->sys_t ime-scglob) ->sync_cime; 

•ifdet PERFORMANCE 

ivcid) Perf Control (ThePClobals. true) ; 
•endif 

kle>4 ( # glcb) ->kle; 

sGlcfcs ( 'glob) ->sharedGlob; 

dRect * p->srcRect; 

if ( • Trans formRect (p->matrix. 4dRect .nil) > ( 
DebugMagt *\pTranstomRect Error - ); 
return ( pa ramErr) ; 

) 

rowBytes - p->dstPixNap. rowBytes 4 0x3fff; 
cffsetH e (dRect.lef: - p->dstPixwap. bounds, left) ; 
switch ( p->dstPixMap.pixelSixe ) ( 
case 32: 

offsetH «»2; 

break; 
case 16: 

offsecH «>1; 

break; 
case 8: 

break; 
default : 

result * codecExr: 

DebuffMsgCNpDepth Error - ); 

goto bail; 

) 

offsetv * (dRect. top - p->dstFixJiap. bounds, topi • rov^ytes; 
baseAddJ * p->dstPixMap.baseAddr * offsetH ♦ offsetV; 
pixmapsdong *)baseAddr; 

/•••-•••«--*••••--- 

* Klics decode 

•••••••••• ..••..-••...*•-•-*••••----, 

src|0).cglobl->src(01; srcfl)- Cglob) ->srcll) ; arc (2 J = l *Qiob) ->src (2) ; 
d9t(0) = Cglob)-xJatf0] ; dst II) « ( *glob> ->dst [13 ; dst (2 J - t -glob) ->dsc{2] ; 

f rmh= (Klic sfrajne Header •)p->data; 

kle->buf .buf- (unsigned long • ) <p->data*sixeof (KlicsFrameHeader ) ) ; 
mode* node Switch ( •glob, f rmh) ; 

KlicsDecodelarc.dat.4kle->se©^i. f rmh. 4 kle->buf . mode. ( -glob) ->scaie. 4 ( # glob> ->cr 

if ( kle->buf .ptr-kle->buf .buf > f rmh* > length* 2 1 

DebugMsg( •\pwaroing: Decompressor read passed end of buffer*); 

p->datalO]«'X'; 

p->dataU)«mode4f lac_tree?'T' : • '; 



char 

CCrarPtr 

Rect 

StrlSS 
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p->dataH2)=modeAf lag_vave?-w : ■ 

p->dlt•(3)■tnode4flag_3how?■S• : 
p-xiata (4 J »modei flag. full ? T' : • 
p-xiata^5)=fm^->£lag9tKFH.X^^ , RA?■:' : • 
p->data(61 3 £rTOh.>£lags4KFH.SKIP?'K' : • 
p->data(7) a 'X'; 

p->data-rp->buf f erSize; 

•...•••..»... 

• signed 10 bit YUV-unsigned 8 RGB convert 
•••••• * •••/ 

•ifdef CCMPONmr 

SwapMMUModa ( tntnuMode 1 ; 
*endif 

if (modetf lag_ahowi ( 

(•glcb) ->sync_cimesG€CTimarvalue(t( # glob)->8ync.time) ; 
( # glob) ->dpy_f rarae» ( •glob) ->real_Crarae; 

if (eglcb)->acale(2]<(»glob)->scale(in { 
switcfclkie->9eqh.chaanela) { 
case 3: 

awitch (p->dstPixMap.pixelSixe) ( 
case 32: 

if < mode* flag.f till) 

OUT32X2(sGiob->tab(Ua«32-l) , pixaap, arc [0] , arcll) .srci'2];wi. 

else 

OUT32»D(9Clob->tabfOse32-l).pixmap,src(0).sicflJ. arc(2J.w 
break; 
case 16: 

OUri€X2(aClob->tab(Uael6-ll .pixmap. arc (OJ . arc (11 .arc [2] .vidth> 
break; 
caae 8: 

OOT8X2(aClob->tab(Uae8-l) ,pixmap, trc[0J . arc(l] . arc (2) .width»< 
break; 

> 

break; 

) 

} else ( 

switch <kle->seqh. ch&nnala) ( 
caae 3: 

switch (p->datPixMap.pixelSi*e) < 
caae 32: 

if (modetf lag.full) 

OUT32 (5Clob->tabtUse32-l ] . pixmap. arc 1 0J , arc (1) . arc 12} . widt. 

elae 

OOT32XMaClob->tab[Uae32-l).pixraap,arcI0].arcfl). arct2),wid 
break; 
caae 16: 

Otm6(aClob->tab|Dael6-l),pijonap,srcf0Ksrcri] # 3rct2J,width»t 
break; 
case 8: 

OOT8(aClob->tab(tJae8-11 .pixmap, src(0] , arc(l] ,arc(2] . width»Cg 
break; 

) 

break; 

) 

) 

(•glob)->dpy.tiJM«C«tTiinerValue(A(»glob)->dpy.tiine) ; 
(•glob) -><tpy_ciae-«Cglob) ->sync_tirae; 
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CLIARA2 ( ) ; 

( •glob* ^sync.tiff.e S G«t?;.-nerVdlue ii : -glcbi ->s/nc_c lmt ) ; 

»::def COMPONENT 

SwapKMUMoee ( i.-rmuMode ) : 
•er.dif 

rail: 

KL*r.lccic t • Handle )glcfi» .- 

•ifdef PERFORMANCE 

it (0!* (result = Per f DumpdhePClobals. '\pDeccde .per* ■ . false C))) 
returntxesult J : 

•endif 

DebugMsg ( • NpBandDecompress success • ) ; 
recurn ( result ) ; 

} 

«endif 
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/ ..... 

* <D Ccjyright XS53 KLICS Limited 
All rights reserved. 

written by: Adrian Lewis 

••••••••••••••/ 

* Sec end generation header file 
•/ 

•include <stdio.h> 

/• useful X definitions •/ 
/•typedef char Boolean;*/ 
typedef char • St ring; 
•define True 1 
•define raise 0 

/* new Blk definition •/ 
typedef inc Blk(4); 

•define vrr_Haax 0 
•define WT_Daut>4 1 

/* mode constructors •/ 
•define M_LPF 1 
•define M.STILL 2 
•define M_SEND 4 
•define M.STOP 6 
•define H.voiO 16 
* define M.OUIT 32 

/* LookAhead histogram •/ 
♦define HZSTO 300 
•define HXSTO.DELTA 13.0 
idefine HISTO.BITS 10 

/* Fast Punctions •/ 

/• id the block all zero ? •/ 
•define Blk2ero (block ) \ 

block[0]==0 &t block t 11 ==0 &4 block[2]«0 *& biock|3]«0 

/* Sim of the absolute values */ 
•define Decide (new) \ 

abs(new[0] )♦ \ 

absinewfl] ) ♦ \ 

a£>atnew(2) )♦ \ 

abs(new[3] ) 

/* sua of the absolute differences •/ 
•define DecideDelta (new, old) \ 

absinewfOl-oldlOJ)* \ 

abainew(lJ-old(lJ)* \ 

aba(nev[2]-old(2])* \ 

abs<nev(3)-old(3]) 

/• Adjust the norm for comparison with Sigm&Abe */ 
• define Dec ideDouble (norm) M.0*norrn) 

/* Get addresses from x.y coords of block, sub-band, octave* 
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•^image size ffl-d .-task .direct 1/ related tc octave; ;r. format icn 

•define CetAddriaddr.x.y. sub. oct . s;ze. mask) v 
in: smask=mask>> 1, \ 

xOsxl (3Ub41?smask:0) . \ - 

xl*xl (3ub41?smask:C) (mask. \ 

yOs (y I (sub42?3maak; C> J *size(0? . 

yi-ty I <sufc42?snvask: 0) I mask) •sue: 01 ; \ 

addr ( 0 1 sxO-yO; \ 

addrfl)=xl*yO; \ 
addrf 2 ) =x0*yl; \ 
addx|3)*xl*yl; \ 

) 

/* Cet data values from addresses and memory •/ 
^define Cet Data I addr. block, data ) \ 

block |Q]s i int ) dat a ( addr ( 0 ] ] ; \ 

block|l)=iint)aata(addr(l)]; \ 

block[21= tint Id*ta(addr (2) ] ; \ 

block (3 }» (int ) data [addr (3) ) ; 

^define VerifyData (blocX.mask, tn.pl \ 
tmp=block*jnask; \ 
if (tnp!*0 •£ trap:. mask) { \ 

biock=Dlock<0*mask:-mask: \ 

) 

/• Put data values to merrory using addresses •/ 
•define Put Data (addr. block, data) \ 

dataladdr(O) Jr (snort ) block [0 J ; \ 

data|addr(l]J»(short)blockfl); \ 

datafaddr(2]]*<short)block(2); \ 

data (addxr 31) r (short )blockf3); 

/• Put rero's to memory using addresses •/ 
•define Put Zero (addr. data) \ 

data|addrf0])*O; \ 

dataladdrfl] }»0; \ 

data (addr [2 J ]«0; \ 

data (addr (3) J *0; 

/• Mode: M.VOID Put reros and find new mode •/ 
•define OoZero (addr. dst. mode. oct > \ 

PutZerciaddr.dst ) ; \ 

mode (octjsocta«0 ?M_STOP : M_ VO I D : 

/* Descend the tree structure 

* Copy mode, decrement octave u mask), set branch to rero 
•/ 

•define DovnCounters (mode, oct .mask. blk) \ 
mode (oct-1) =mode (oct ) ; \ 
oct--; \ 

mask > maak>>l; \ 
blk (oct) *0; 

/• Ascend the tree structure 

* Ascend tree (if possible) until branch not 3 

* If at top then set mode to M.QUXT 

* Else increment branch and x,~y coords 
•/ 

•define St opCounters (mode. oct , mask. blk. x.y. oct s) \ 
while (oct <octs-l 6* blkfoctl«*3) f \ 
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blk[oct)»Q.' \ 
mask: rraak<<l; \ 

x as -mask ; \ 
y t» -maak; \ 

rrt**; \ 

) \ 

if (oct ==0CC3-1J modeloct JsM.OUIT; \ 
else { \ 

blicloccl-*; \ 

x *s mask«l: \ 

if (blk(occ]=*2) y '= ma9k<<l; \ 
mod«(occ ] ■mode(oct*ll ; \ 



CIIOCTITIITC CUCCT fDI H C *>C\ 



WO 94/23385 



PCT/CB94/0W77 



-708 



engineering: Ki irsCode : CcnxpPicc :Maar .a 



<0 Copyright 1993 KLICS Limited 
Ail rights reserved. 

written by: Adrian Lewis 



680C0 Fa at Forward/ Backward Haar 



macro 

FwdO 4addrO.tdC.tdH 

mcve.w :taddrO),fcdG ; dC=* (shore *)addrl 

move.w 4dG.4dH ; dH»dG 

enefcn 



macro 



Fwdl 


taddrl . iaddrO. 4dC. 4dH 




move . w 


Uaddrll .d0 


; ve # (Short 


•)addr2 


add. w 


dO.fcdH 


: dH*»v 




sub.w 


dO,adC 


: dC-»v 




clr.w 


dO 


• d0«0 




aer. w 


tl.tdH 






addx. w 


dO.adH 


• round dH 




asr.w 


tl.fcdG 


dC»*l 




addx. w 


dO,tdG 


round dG 




move . w 


4dH. (iaddrO) 


•1 snort • 


) addrOadH 


move.w 


idC.Uaddxl) 


•(short * 


Jaddrl^dG 


mend 









3do 



macro 






Fwd 


4bea«, tend, tine 




movta.,1 


abase, aO 


; addrOstaso 


move. 1 


ainc.dO 


; dOainc 


asr. X 


#l.d0 


; d0ainc>>l 


movea . 1 


aO.al 


; addrl*addrO 


suba. 1 


dO.al 


■ addrl-s ( inc>>l ) 


fwdO 


a0.d4.d5 


• FvdO(addrO.dG.dH) 


adda . 1 


&inc.al 


addxl*=inc 


Fwdl 


al.a0.d4.d5 


Fwdl ( addr 1 . addrO . dC . dH ) 


adda.I 


fcinc.aO 


addr0*& inc 


cmpa. 1 


a 0. tend 


addx 0< end 


bgt .s 


9 do 


while 


ends 






rvard FUNC 


EXPORT 




link 


a6,»0 


no local variables 


aovea. 1 


d4-d7/a3-a5,-<a7) 


store registers 


nove.l 


$000Cla6).d3 


inc: inc 1 


movea. 1 


$000Bta6),a3 


bascsdata 


move.l 


S0010<a6).d6 ; 


endl 


move. 1 


$0018<a6),d7 


end2 


move. 1 


S0014(*6),d2 


inc2 
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movtA . 1 

move. 1 

asr.l 

movea. 1 

suba.l 

BwdO 

adda.l 

Bwdl 

adda.l 

dbt 

endm 



Odo 


movea . 1 
adda.l 
Fwd 
adda.l 
cmpa . 1 
bit .s 


d6.a4 
a5. a4 . d3 
d2.a5 
d*7.a5 
Odo 




ond*3«ndl 
: Fwd (base. end. inc) 
• base*sinc2 

■ end2>base 

■ Cor 


• 


movem. 1 

unlx 

res 


(a*?)- ,d4-i7/d3-a5 
at 




restor* registers 
remove locals 
return 


* 


ENDFUNC 










macro 
BwdO 


*&addrO.*dC.idH 






* 
* 


move . w 
move. w 


ItaddrOKidC 
idC.idH 


dCa* (short *)addrO 
dHsdG 




endm 










macro 
Bwdl 


iaddr 1 . iaddrO . adC . 4dH 




« 


move . w 
add.w 
sub.w 
move - w 
move.w 


(ieddxD.dO ; 
dO.fcdH 
dO.adG 
tdH. (iaddxO'i 
. tdC. Uaddxl) 


v«*{ short Maddrl 

dH*«v 

dC-«v 

•(short *)addrO*dH 
•(short *)addrl*dG 


• 


endm * 










macro 

Bwd 


tbaae . tcount . tine 







&baae,a0 

&inc.dG 

#l,d0 

aO.al 

dO.al 

aO.d4.dS 

Line, al 

al.a0.d4.d5 

iinc.aO 

&count,0do 



addrOsbase 

dO=lnc - 

dO»iuv>>l 

•ddri-addrO 

addrl-«Unc»l)'* 

BvdO l.addrC.dG.dH) 

addrl**inc 

Bwdl ( addr 1 . addrO , dG . dh ) 

addrO^einc 

while -i!«count 



FUNC 



EXPORT 



KaarBaOcvard 
* 

• dO - spare, dl - countl. d2 - inc2. d3 



lin* 


•6, SO 


moves. 1 


d4-d7/a3-a3.-ia7) 


move. 1 


$000C(a«).d3 


movea. 1 


S0008<»6),aS 


move. 1 


S0010(a6).d6 


move. 1 


S0018(a6).d7 


move. 1 


S0014(a6).d3 


subq.l 


tl.d7 


lsr.l 


#l,d6 


subq.i 


•l.d6 



- incl. d4 - dC. d5 - dK. d6 - loopl. d 

; no local variables 
; store registers 



inc* incl 
base* data 

loopl (width/height) 
loop2 ( height /width ) 
inc2 

loop2-«l 
loopl /«2 
loopl-*! 
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9do 



mcve . 1 
Ewd 
adda . 1 
dbf 

nvcveni . 1 



d6.dX 
a5.dl.d3 
d2.a3 
d7 . edo 

'.a"J)..d4-d?/a3-35 
a6 



covnt Is loop! 

Ewd (bcse . count . mcJ 

base-s mc2 

while -l:- — iocp2 

reaeore registers 
remove locals 
return 



EKDFUNC 



HaaxXTopBwd FUNC 



EXPORT 



9 do 



HaerTopBwd 



edol 
*do2 



link 


a6. «0 


move a . 1 


S0008(a6) ,a0 


move . 1 


SO00C(a6) .d3 


lsr.l 


*X.d3 


subq . 1 


• X.d3 


move . 1 


laO} ,d0 


mnvp 1 


dO.dX 


cujin 


dX 


nc^ . w 


dO 




dl dO 


move • i 


dO (aO)* 


QCE 


dl Gdo 


unXk 


a* 


res 








&wd FUNC 


EXPORT 






movent • X 


d4-d6. - (a*D 


move* . X 


£0008<a<),a0 


movea . X 


aO.aX 


move. X 


5000C(a6).d< - 


move. X 


S0010ia6),d3 


move. X 


d3,d6 


add.X 


d6.d6 


Xsr.X 


IX, d4 


lsr.X 


*X.d3 


subq. 1 


• l.d« 


suoq.l 


• X.d3 


adda.X 


d6.aX 


move. X 


d3.d5 


move. X 


(aO) .dO 


move. X 


<al),dX 


move. X 


d0.d2 


add.X 


dX.dO 


sub. X 


dX.d2 


move . X 


dO.dl 


swap 


dl 


neg.w 


dO 


add.X 


dl.dO 


move. 1 


dO. Ca0>* 


move. X 


d2.dl 


swap 


dl 



no Xocal variables 

scare 
area 

area (long) 

area-sX 

dO»HG«*Y 

dXsKG 

dXsGH 

dOsH(-G) 

d0-01 

•Y**«01 

whiXe -l!«--axea 

remove XocaXs 
return 



no XocaX variables 
score registers 

scartK 
scarcG 
height 
width 

XineXen»widch 
XineXen (bytes) 
height/ «2 
width/ -2 
heighc-»X 
width-«X 
scarce* s XineXen 
Xine count «widch 
d0=HAHB»*YO 
dl*GAGB»*Yl 
d2sKAHB 
d0«0A0B 
d2&XAXB 

dJ.HG 

dl»CH 

dO»H(-G) 

dO-OX 

•YO**»0X0B 

dXeHO 
dl-GH 



WO 94/233*5 



PCT/GW4/00677 



- 711 - 

Engineering : Ki i csCode :Ccm??ic: : Kaar . a 



~.eg. w 
aGG. l 
move . 1 


CI . GL2 

d2. (alu 


: d2sH(-C) 
: (12 = 01 


dbt 

nove . l 
dbf 


d5 . 3do2 
al.aO 
da. 3dol 


; while - 1 ! * - - linecounc 

; startHsscartC 

; while -i:s--heighc 


movem. 1 

unlk 

res 


(a7) *,d4-d6 
a€ 


; restore registers 
; remove locals 
; return 


DJDfUNC 






END 
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* Z Ccryricht 199 3 K1ICS Limited 
Ai.; r :;ncs reserved. 

written ry : Adrian Lewis 

* •*/ 

23 wavelet transform convolver (fast hardware emulation) 
New inroroved wavelet ccaffs : 11 19 5 J 

Optimized tor speed: 
dim - False 
src/dst occave == 0 



«defir.e FwdS(addrO.dAC.dAH) \ 
viMshcrt •iaddrO: v 
dAC« (v3»v* ( va»v<<l ) ) ; \ 
dAC* rv* i vs <<■ 1 J ; \ 
dAHsv3<Hvs<<rl ) ; \ 
dA>»* =v3* (vs«sl ) ; 

•define rwdl f addr 1 . dAC. dAJf, dfiG.JfiK) \ 
vs • i short • ) addxl ; \ 
dSC* (v3bv* ( vssv<<1 ) | ; \ 
dAH*»v* (va<<»l» ; \ 
dflHcv3*(vs<<»l) ; \ 
dAG-sv3«(vs«al) ; 

■ define Fwd2 ( addr 2 . addr 1 . addr 0. dAC. dAH.dSG. dBH) \ 
vt*\ short •)addr2; \ 
dAH-«<v3«v* <vssv«l) ) ; \ 
dBG*»v* t vs<<cl ) ; \ 
dAG*»v3* ( vs«sl) ; \ 
d£H*=v3+(vs<<«l) ; \ 
"(short *;«ddr08(dA)ft>l3)»5; \ 
* (short • )addrl« (dAG~15)»5; 

•define Fwd3 (addr3 .dAC.dAH.dBC.dfiH) 
v.* (short •)addr3; \ 
dACs ( v3»v* I vt *v<c<l) } ; \ 
d£H*sv* (vs<<sl I ; \ 
dAH*v3* ( VS<<b 1 ) ; \ 
dBG-av3* ( VS<<«1 ) ; 

*define FwdO (addrO . addr 3 . addr 2 , dAC. dAH, dBC. dBH) \ 
v»»i short *)ad£lr0; \ 
dBH-* ( v3»v* (vs»v<<1 J ) ; \ 
dAG*«v* I vs«a 1 ) ; \ 
dflG-»ov3* ( V9<<*1 ) ; \ 
dAH*»v3*(va«sl) ; \ 
• (short • )addr2* (dBH*15)>>5; \ 
•tshcrc •)addr3»<dBG*15)>>3; 

define FwdE ( addr 3 , addr2 , d&G , dBH ) \ 
v»m short # )addr3; \ 
dBH*« tvs»v<<l) ; \ 
dBG-«(vs«2); \ 

V short •laddr2*(dBH*13)»5; \ 
* (Short *)addr3«<dBG*13)»S; 
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'define Fwdtbase. engine) \ 
addrO=case; \ 
addx3»addr0- ( inc>>2 : ; \ 
addr2 = addr3- ( inc>>2 ) ; \ 
addrl=addr2- { irc>>2 ) ; \ 
rwdS ( addrO . dAG . dAK ) ; \ 
addrl ♦= inc; \ 

Fvdltaddrl.dAC.dAK.dBC.dBH:.* \ 
addr2* = mc; \ 

Fwd2 ( addr2 , addr 1 . addrO . dAC . dAH . dBC . dfiK) ; \ 

addr3*sinc; \ 

while ( a dor 3 < and) { \ 

Fvd3<addr3.dAC.dAH, dBC.dBH) ; \ 

addrO*«inc; \ 

rvdOfaddrO. addz 3. addx2. dAC. dAh. dBC.dBH ) ; \ 
addrl*sinc; \ 

Fwdl(addrl,dAG.dXH,dBC,dBH) ; \ 
addr2*«inc; \ 

Fwd2taddr2,addrl ( addr0.dAC.dAH.dBC,dBK); \ 
addr3* = inc; V 

) \ 

Fwd£ ( addr3 . addr2 , dBG . dfiK) ; 

extern void FASTFORWARD< char •data, long incl. long endl. long inc2. char ••nd2h 
extern void HAAAFORWARD ( char 'data, long incl. long endl. long inc2. char •end2); 

void FaatForvardfchAT *data. long incl. long endl. long inc2, char *end2) 

( 

register short v. vs. v3. dAC. dAH, dBC. dBH. inc.- 
register char *addrO. # addrl. *addr2, *addr3, *«nd; 
char * basel- 
ine » incl; 

for (base»daca;base<end2 ;base<*sinc2 ) ( 
ends ba s e ndl ; 
Fwdtbase, end. inc) ; 

) 



void Daub<Forward( shore *data. int size (2]. int oct.dst) 

( 

int oct. area»aize{OJ*aize[l)«<l; 
short widthssixe [0)«1; 

char * top- area* (char • J data. «lef t«width*(char *)data; 

fcr (oct :0; oct !=oct.dat;oct**» ( 

long cinc»2<<oct. cinc4scinc<<2. 

nnc=sixe (0)<<oct+l, rinc4orinc«2 ; /* col and row increments in t. 

F ASTFORWARD ( (char •) data. cinc4, width -cine, r inc. top » ; 
F ASTFORWARD { (char • ) data, rinc4 .area-rinc, cine, left) ; 

) 

) 

void HaaxFcrvardl abort 'data, int size (2]. int oct.dst) 

( 

int oct. area»size[OJ »siie(l)«lt 
short width*aize (0] «1; 

char •top-area* <ch*r *)data, • left »width* (char *)data; 

f or < oct «0 ; oct ! ■oct.dst; oct ♦♦) ( 

long cinc»2«oct, ciac2»cinc«l. 
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rinc=size fO) <<oct»i . rinci = r mc«l; /• cc: and row increments ;n t 

HAARFORWARD( (char •) data. cinc2 . width, rmc. top: ; 
haa RFORWA RD ( tcnar 'idata. nnc2. area. cmc. letz: ; 



vcid Kytsr.dfcrwardi short -data, int size{2], int oct dat i 

r 

int cct. area=siie(OJ *si:ef 
sfcert widthssize (0) <<1 : 

char *top=area* (char •idata. • left»width* (char 'Jdata; 

HAA RFORWA rd ( (char •! data. 4 . width, size fO] «1, top) ; 
HAARFORWARD f (char *)data,size[0)<<2, area, 2 , left ) ; 
for toctsl;occ : =oct_dst ;oct**» ( 

long cinc=2<<oct. cinc«scmc<<2. 

rinc«size [0]<<oct*i, rinc4 = rinc<<2; /• col and row increments in t 

FASTFCRWARD ( (char • )data . cinc4 . width-cinc. rinc. top) ; 
FASTFORWARD ( i char • ) dat a . rinc 4 . ar ea - r inc . cine . le 1 1 ) ; 

) 

I 

♦define BwdSO (addrO . dAC, dAH, dBH) \ 
v= # (short •)addr0; \ 

dACr - (V3»V* ( V3sV«l) ) ; \ 
dAH-v*(v3« = l) ; \ 
dfiHsv$<<l; \ 

• define BwdS 1 ( addr 1 . addr 0 . dAC . dAH , dBH ) \ 
vs« (short - )addrl; \ 
dflH*s(vs«v<<l) ; \ 
v3«vs*v; \ 
dAC*cv3* ( vs<<»2 ) ; \ 
dAH-*v3* (v»<<«!) ; \ 
•(short •jaddrO«(dBH»3)>>3; 

•define fiwd2 ( addr 2 . dAG , dAH , dBG . dBH ) \ 
vs # i short *)addr2; \ 
dBCa -(vjsv* ( v»sv<<lJ ) ; \ 
dBH-v* (V9«>1 ) ; \ 
dAH»ov3* (vs<<al) ; \ 
dAG+ev3+ (VS<<cl \ ; 

•define Bwd3 ( addr 3 . addr 2 . addr 1 .dAG. dAH. dBG. dBH) \ 
vr»i short *>addr3; \ 
dAH*s (v3»v*(vs»v«l) ) ; \ 
dAG*«v+ (va<<sl) ; \ 
dBG*sv3* (vi«nl) ; \ 
dBH-«v3* (V3««l) : \ 
•(short -Jaddrls (dAH*7)>>4; \ 
•(short •)addr2»(dAG»7)»4; 

•define BvdO ( addrO . dAG . dAH . dBG . dBH ) \ 
v» • ( short • ) addrO ; \ 
dAGs - (v3«v*(vs»v«l) ) ; \ 
dAHcv*(vs«»l) ; \ 
dBH*«v3»(vs««l); \ 
dBC**v3« (v»<<«1) ; 

idefine Bwdl (addr 1 . addrO. addr3, dAC, dAH. dBG. dBH) \ 
v«» (short •iaddrl; \ 
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dBG*sv-« vi«il) ; \ 
dAG**v3« tV9<<sl ) ; \ 
dAH-»v3* IV»<<» I) ; \ 

•(shore Maddr3=(dBH*7)»4; \ 
•(short * leddrOs f dBG*7) >>4; 

•define fivd£2 ( addri . dAC . dAH. dBH) \ 
vs*(shcrc *;addr2; \ 

v3sv* ( va = v<< 1 ) ; \ 
dBH= (vs<<»2) ; \ 
dAH*sv3*vs; \ 
dAG*=v3* lvs<<=l) ; 

•dofin* BwbX3(addr3.addr2.addrl.dAG.dAH.daH) \ 
v=* (short *)addr3; \ 
dAH* s (v3=v* (vs=v<<1) ) ; \ 
dAG*«v* (V3««l ) ; \ 
dBH-=v3*<vs«3l> ; \ 
dBH-«v3*(vs«*l) ; \ 
•(short •)add^la(dAH*7)»4? \ 
•(shore * ) addx2= (dAG*7) >><; \ 
•ishort Maddr3=(d£HO)>>3; 

'define Bwd (base, end, inc) \ 
addrOsbase; \ 
addr3«addr0- < inc>>2) ; \ 
addr2aaddr3- ( inc>>2) ; \ 
addrl=*ddr2- ( ino>2J ; \ 
BwdSO ( addrO . dAG. dAH, dBH) i \ 
addrl+«inc; \ 

BwdSl(addrl.addrO.dAG.dAH.dBH); \ 

addr2*»inc; \ 

while (addr2<end> { \ 

Bvd2 (addr2 , dAG. dAH, dBG, dBH) / \ 

addr3*sinc; \ 

Bwd3 (addr3 # addr2.addrl.dAG,dAH.dBG,dBH); \ 
addxO*«inci \ 

BwdO(addrO«dAG.dAH.dBG,dBH); \ 
addrl*einc; \ 

Bwdlladdrl*addrO,addr3,dAG,dAH*dBG.dBH); \ 
addr2**inc; \ 

) \ 

BwdS2(addr2.dAC,dAH.dBH) ; \ 
addr3*sinc; \ 

B*d£3(adC*3,addr2,addrl,dAC.dAH,d*H» ; 

extern void FX ST BACKWARD ( char •data* lone incl. long loopl, long inc2. char •end2) 
extern void hkarbackward ( char 'data, long incl, long loopl. long inc2. long loop2) 
extern void HAAKTOPBWD ( char •data, long height, long width); 
/• extern void KAARXTOPBWD < char • data, long araa);*/ 

void Fast Backward (char *data, long incl, long endl, long inc2, char *end2) 
( 

register short v, vs. v3* dAG. dAH. dBG. dBH. inc; 
register char •addrO, *addrl. *addx2, *addr3, -end; 
char •oaaajf 

incsincl; 

toi (bas««data;bas«<and3;baae^»inc2) ( 
end»baac*6noU; 
Bwd Ibaae.end. inc) ; 

) 
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void Oaufc>< Backward! short 'data. int size(?i.:nc oc:_srci 

i 

:n; ccc. area«Siie 10] • s:ze[ IU<1; 

short width=5ize[0 J<<1; 

rhar •cDp=axca* (char *)data. Mef t=width* ichar 'Jdaca: 

:crioc:=oct _src-l;cct>rO;oct --) { 

long rinc=2<<oct, cinc4=cinc<<2 . 

nnc*eiza |0)<<oct »1. rinc4sriac<<2 : /• col and row increments in t 

FAST3ACKWAJUX (char • Jdata . r inc4 . a rea- I r inc«l ) .cine, left) ; 
FASTBAC iCWARDt (char •) deca . cinc« . width- icinc«l) . rinc. cop) ; 

i 

j 

void Haarfiackvardfdata. size, occ.src ) 

short 'data; 

int size(2) # oct.src; 

( 

int oc: ( axea=size|0] •size(l]«l; 

snort width*size(0)<<l; 

char 'top-area* (char *)data, •leftrwidth* (char •Jdata; 

for iectsoct_src-l;oct>0;oct--) ( 

long cine«2<<oct. cinc2«cinc«l. 

rinc»»iae(0]«oct*l. rinc2»rinc«l; /• col and row increments in t 

HAARBACXWAXIX (char * ) data. rinc2, size ( 1) >>oct. cine, size 101 >>©ct) ; 
HAARfiACXWARD i Ichax • ) data. cinc2, size {0} »oct . tine, size (1) »oct ) ; 

> 

HAAATOrswDf (char • )data. sized). size(OJ) ; 
/• KAAWCTOPBWD( (char * )dat».axea>>l) ; •/ 

) 

void HybridBackvard(data. size. oct.src) 

short 'data; 

int size(2J. oct.src; 

( 

int oct. area«sizefOJ # sized )<<i; 

short wxdth«size (0J«1; 

char 'topsarea»(char Mdata. -left swidth* (char *)data; 

for l oct «oct_src - 1 ; oct>0 ; oct*-- J { 

long cinc=2<<ocr, cine 4c cine <«2. 

rinc=size(0]«cct*l. rinc<»rinc«<2; /• col and row increiivents in t 

FASTBACKWAWX (char • ) data , rinc4 . area- ( rinc«l ) . cine . left) ; 
FASTBACKWARIM (char •) data. cinc4 .width- <cinc«l ) . rinc . top) ; 

) 

kaartopbwdi (char • >data. sized) , size (0) ) ; 
/• HAAJOCTOFBWDI (char *>daca,are*»l) ; •/ 

) 
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53000 FastForvaxd/Backvard code 



seg 


'klics* 






macro 








FwdStart 


iaddrC.4dAC.4cUH 




move. v 


(4addr0) ,d0 


t 


vs*i short •)addrO 


move. w 


dO.dl 


« 


V3SV 


add. w 


dl.dl 


* 


va<<«l 


move.w 


dl.d2 


t 


v3»vi 


add.w 


d0.d2 


• 

f 


v3»vs*v 


move.w 


d2.4dAG 


1 


dAC«v3 


add.v 


dl.dl 


* 


V8«»l 


add.v 


dO,4dAC 




dAG*aV 


add.v 


dl.&dAC 


* 


dAG*svs 


move. v 


d2,4dAH 


f 


dAHaV3 


add.v 


dl.dl 


» 


V9«sl 


add.v 


dl.4dAH 


* 


dAJ4+.vt 


add.v 


d2.4dAH 


» 


dAH*«v3 


add.v 


dl.dl 


* 


VS«sl 


add.v 


dl.4dAH 


i 


dAH*-va 


tiidn 









macro 

FwdOdd 4addrl.4cUG,idAH.4dBG,4<lfiH 

move.w (4addrl),d0 ; v»* (short *)a£drl 



move.w 


dO.dl 




vs«v 


add.v 


dl.dl 




VS«sl 


move. w 


di.d2 


» 


v3»va 


add.v 


dO.dl 


* 


v3«vs«>v 


move.w 


d2 , 4dBG 


* 


dBG»v3 


add.w 


dl.dl 


* 


vs«*l 


add.w 


d0,4dAH 


; 


dAH*.v 


add.w 


dl.4dAH 


* 


dAH*«vs 


move.w 


d2.4dBH 




dBH«v3 


add.w 


dl.dl 




VS<<«1 


add.v 


dl.4dBH 


; 


dSH*»V8 


sub.w 


d2.4dAG 




dAG-«v3 


add.w 


cU.dl 




va«»l 


sub.w 


dl.4dAG 


i 


dAG*«va 



ends 



macro 
PvdKven 

move.w 
move.w 
add.w 
move.w 



& addr2 . 4*ddrl , taddr 0 . 4dAC . 4dAK , 4dBC . 4dfiH 
; v»*(ahort •)addr2 



(4addr3).d0 
dO.dl 
dl.dl 
dl.cU 



vsw 

V»<<»1 

v3«va 
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add . v 


* d0.d2 


. v.tvs^v 


sub. w 


d2 . fcdAH 


QAn ~ s v j 


add v 


dl dl 


; v 5 < < = 1 


add . w 


dO . LdfiC 


CbO*sV 


add v 

a ww • w 


dl 4dfiC 


. CBG ♦ = v S 


add . w 


d2 £dAG 

W* ■ • UAU 


GAG* sv: 


add. v 


dl.dl 


; V5<<sl 


add .v 


dl. idAC 


• dAG* «vs 


add. w 


d2.6d3H 


dEH*=v j 


add.w 


dl.dl 


vs«=l 


add. v 


dl . idBH 


dBH*«vs 


clr .w 


dO ; 


dO-0 


dsr.w 


»5.*dAH 


dAH>>s5 


addx .w 


dO.tdAH 


round dAH 


asr . v 


«5.4dAG 


dAG»«5 


addx .w 


dO . &dAC 


round dAG 


move . v 


&dAH, (iaddrO) 


•(short NaddrOrdAH 


move . w 


6dAC, Uaddrl) 


•(snort • )addri=o>G 



mend 





macro 






• 


FwdEnd 


4addx3 . t*ddx2 , tdSG . 4 dBH 




move . w 


(&addr3) ,d0 


; v**( short *)addr3 




add.w 


dO.dO 


; v<<»1 




add.w 


dO . 4 dBH 


; dBH*-v 




lsl.w 


•2.d0 


; vc<«2 




sub.w 


d0.4dBC 


; dBC-«v 




clr.w 


dO 


; dO-0 




asr. w 


*5.fidBH 


; dBH»«5 




addx. w 


dO , 4 dBH 


; round dfiK 




asr . w 


*5.&dBG 


; dBG»«3 




addx. w 


dO.adBG 


; round dBG 




move . w 


4dBH. <4addr2) 


; *( short Maddr2*dBH 


* 


move . w 

endm. 


4dBG, <4addr3) 


; •( short •)addr3»dBG 



macro 






Fwd 


4 base. tend, tine 




movea . 1 


4 base. aO 


; addrOsbasc 


move . 1 


Linc.dO 


.- dO* inc 


asr. 1 


f2.d0 


; d0»inc>>2 


movea . 1 


a0.a3 


; addr3=addrO 


suba. 1 


d0.a3 


; addr3-« <inc>>2 ) 


movea . 1 


a3.a2 


; addr2»addx3 


suba. 1 


d0.a2 


; addr2-« tinc>>2 i 


movea . 1 


a2 f al 


; addr 1« addr 2 


suba. 1 


dO.al 


; addrl-a <inc>>2] 


FvdStart 


a0.d«.d5 


; FwdStart ( addr 0. dAG. dAH) 


adda.l 


4inc. al 


; addrl*sinc 


FwdOdd 


al.d4.d5,d6,d7 


; PvdOdd ( addx 1 . dAG , dAH . dBG , dBH ) 


adda.l 


4inc.a2 


■ addr2*=inc 


FwdEven 


a2.ai.a0.d4.d5.d6.d7 


FwdEvan ( addx2 , addr 1 . addxO . dAG . dAH. dB 


adda.l 


4 inc. a 3 


addr3*»inc 


FwdOdd 


a3,d6.d7,d4,d5 


FwdOdd ( addx 3 , dBG . dBH , dAG . dAH ) 


adda.l 


tine.aO 


addrO+*inc 


FwdEven 


a0.a3,a2.d6.d7.d4.d3 


FvdEvan ( addr 0 . addx 3 . addr 2 dBG , dBH , dA- 


adda.l 


iinc.al 


addrl*»inc 


FwdOdd 


al.d4.d5.d6.d7 


FwdOdd ( addr 1 , dAG . dAH , dBG . dBH ) 


adda.l 


a inc . a2 


addr2*einc 
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fvdrven a2.al.a0.d4.c5.d6.c7 ; FwdTven addr2 . acdrl . acdxO . dAC. dAM. clB- 

adda.l iinc.a3 ; addr3*«:nc 

cmpa.l a J. tend • ; addr3<end 

bct.v 9do ; while 

Fwd£nd a3.a2.d6.d7 ; Fwdtod (addr3 . addr2 , c3G. dBH) 
enc±r. 



FastForvard TUNC EXPORT 
* 



link 
movem. 1 


a6, #0 

d4-d7/a3-a5. - 


(a7j 


; no local variables 
; store registers 


move. 1 
movea. 1 
movea. 1 
adda.l 
rwd 

addA 1 

CBTJ4.1 

bit.w . 


SO0OCla6) ,d3 
$0008<a6>.a5 
a 5 a 4 

S0010(a6) .a4 
a5.a4.d3 
S0014 (a6>.aS 
$0018<a6).a5 
Qdo 




; inc=inci 

; basesdata 

; endabase 

; end*»endl 

; Fvd(base. end. inc) 

; baae*=inc2 

; end2>baae 

; for 


movem. 1 

unlk 

rts 


(a7W,d4-d7/a3-a5 
a6 


; restore registers 
; remove locals 
; return 


ENDFUNC 








macro 
BvdStartO 


taddrO, tdAG. 4dAH, 4d8H 




move . w 

move .w 

add.v 

add.w 

move .w 

neg.w 

move.w 

add.w 

lsl.w 

move.w 


(4addr0) ,d0 

dO.dl 

dl.dl 

dl.dO 

d0.4dAG 

4dAG 

d0.4dAH 

dl,4dAH 

•2.dl 

dl . 4dBH 


; v** (short *>addrO 
; V3»V 

; V9«sl (V9a2v) 
; v+ava (v*3v) 
; dAC-v3 
; dAGs -dAG 
; dAHav 
; dAH*avs 
; vt<<«2 (vsb8v) 
; dBH-vs 


endm 









macro 






EwdScartl 


iaddx 1 , 4addr 0 . 4dAC , 4dAH . tdfiH 


move . w 


<4addrl).dG 


; vs*( short *>*ddxl 


move.w 


dO.dl 


; vs*v 


add.w 


dl.dl 


; vs««l 


add.w 


dl.4dBH 


; dSH*avs 


add.w 


dl.dO 


; v*ivi (va3v) 


1*1.1 


#2,dl 


; V8«a2 <V8»8v) 


add.w 


dl.dO 


; v*«vs lv»llv) 


add.w 


d0.4dAG 


; dAG*»v 


add.w 


dl.dO 


; v*avs |Val9v) 


aub.w 


dO,4dAH 


; dAH-*v 


clr.w 


dO 


; dO.O 


asr.w 


•3,tdBH 


; diH»-3 


addx.w 


dO.idBH 


; round dBH 


move.w 


4dfiH, (taddrO) 


; * (short *)addrO*dSH 



endm 
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Tacrc 

HwcEven & addr 2 . tdAG. tdAH. tdBG. 4d£H 



Tcve .w 
xcve . w 
acd . v 
acd . w 
mov« . v 
r.eg .v 
mcve . w 
add.w 
is 1 .w 
add. w 
add .w 
acd.w 
add.w 

endm 



macro 
SwdOdd 

move . w 

move .w 

add.w 

add.w 

add.w 

add.w 

add.w 

lsl.w 

add.w 

add.w 

add.w 

sub. w 

clr.w 

asr.w 

addx.w 

move. w 

asr .w 

addx.w 

move .w 

endm 



rnacro 
Bwd£nd2 

move .w 

move.w 

add.w 

add.w 

isl.w 

move.w 

add.w 

add.w 

add.w 

add.w 

en dm 



: taddr2) .d0 

dO.dl 

dl.dl 

dl.dO 

dO. tdBC 

tdBG 

dO . tdBH 

dl . tdBH 

42.61 

dl.dO 

dO. tdAH 

dl.dO 

dO. tdAG 



v= • ( shore • ) addr 2 

V55V 

V5<<»1 (vs«2v) 

v«svs (v=3v) 

dBC=v 

dBCs -dSG 

dfiH-v 

dBH*=vs 

vs<<s2 (vss8v) 

V*tV3 tV»ilv) 
dAH*rV 

v«svs lvsl9v) 
dAG*«v 



t addr 3 . iaddr2 . taddr 1 . tdAG . tdAH . tdBC . tdBH 



(taddr3) .dO 

dO.dl 

dl.dl 

dl.dO 

dO.&dAH 

dO.tdAG 

dl.tdAG 

• 2,dl 

dl.dO 

dO.tdBG 

dl.dO 

dO.tdBH 

dO 

M.&dAH 
dO, tdAH 
tdAH, (taddrl) 
M.tdAG 
dO.tdAG 
tdAG. it addr 2) 



vt« (short *)addr-3 
va*v 

<va«3v) 
<v*3v) 



V8<<»1 
V*sVI 

dAH*»v 
dAG*»v 
dAG*«vt 

vs<<*2 (vs*8v) 
v*«v8 tvsllv) 
dBG*»v 

V+*Vfl (Vml9V) 

dBH-«v 
d0«0 
dAM»«4 
round dAH 

• t short • ) addrl*dAH 

dAC»«4 

round dAG 

•(short -)addj2*dAC 



t addr 2 , tdAG , tdAH . tdBH 



(taddr2) .dO 

dO.dl 

dl.dl 

dl.dO 

t2,dl 

dl.tdBH 

dl.dO 

dO.tdAM 

dl.dO 

dO.tdAG 



vi* (short • I addr 2 

VS»V 

vt««*l (v$«2v) 
v+svs (v»3v) 
va<<»2 (v»«6v) 
dBH«vs 

V*sV9 (VsllVl 

dAH*«v 

v*>vi (v»19v> 
dAG+sv 



macro 

3vdEn4? 



{.asWr'* . taddr2 , ta^rl . tdAG . tdAH . tdBM 



riinrTTTi itt rucrT tr 
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• 








move . v 


<4addr3) ,60 




move . w 


dO.dl 




add.w 


dl.dl 




add. w 


dl.dO 




add.w 


dO. tdAH 




add.w 


dO. idAC 




add.w 


dl. tdAG 




add.w 


dl . tdBH 




lsl 1 


• 4 dl 




sub. w 


dl , tdBH 


• 




Qv 




asr.w 


*4.frdAH 


• 


addx. w 


dO.tdAK 




move . w 


tdAH. ttaddrl) 




asr.w 


•4, idAC 


• 


addx. w 


dO.idAC 




move. w 


idAC, (taddx2) 




asr.w 


#3 t 4d£H 


• 


addx. w 


dO,tdBH 


• 


move, w 


&dBH, (taddr3) 




endro 






macro 






Bvd 


tbaae. tend, tin 



0do 



*Jaddr3 



(vs=2v) 
(v«3v) 



<v*32v) 



; vs» ( shore 
; vs=v 
; vs<<*1 
? v*»vs 
; dAH*=v 
; dAG*=v 
; dAG»c vs 
; dBH*.vs 
; vs<<=4 
: dfiH-svs 
: d0»0 

dAH»»4 

round dAH 

•(short •)addrl=dAH 

dAG»«4 

round dAC 

•(short •)addr2sdAC 
dBH»«3 
lound dBH 

• (short *)addr3=dBH 



- movea . 1 
move.a 
aar.l 
movea . 1 
sube.l 
movea . 1 
suba.l 
movea . 1 
suba.l 
BvdStartO 
adda.l 
BwdStartl 
adda.l 
BwdEven 
adda.l 
BwdOdd 
adda.l 
BwdEven 
adda.l 
BwdOdd 
adda.l 
cmpa.l 
bgt 

Bwd£nd2 

adda.l 

BvdEndJ 



tbaae.aO 

& inc. dO 

• 2, dO 

aO.ai 

d0.a3 

a3.a2 

d0.a2 

a2,al 

dO.al 

a0.d4,d3.d7 
iinc.ai 

al,a0,d4,d5,d7 
tinc,e2 
a2.d4,d5.d6,d7 
tine, a J 

a3.a2,al,d4.d5,d6,d7 
tine. a 0 

a0.d6.d7,d4.d3 
tine, al 

al.aO,a3.d6.d7,d4,d5 

4 inc. a 2 

a2,tend 

6do 

a2.d4,d5,d7 
tine, a3 

a3,a2, al,d4,d5,d7 



endm 

FastBaclcvard 



FUHC 



EXPORT 



link 
movem.l 

move. 1 
movea. 1 



a6.#0 

d4-d7/e3-aS,-<a7| 

$O0OC(a6l,d3 
S0006(a6l ,a9 



; addrO abase 

; dO-inc 

; d0*xnc»2 

; addr 3 s addr 0 

; addr3-i<inc»2) 

; *ddr2»*ddr3 

; addr2-»(inc»2) 

; addrl=addx2 

i addrl -.<inc»2) 

; BwdStareO(addrO,dAG. dAH,dBH) 

; addrl* rinc 

; BwdStartl (addrl. ajidrO. dAG. dAH. dBH) 
; addr2*«iac 

; BwdCv«nladdx2.dAG.dAH,dBG.dfiH) 
; addr3*-inc 

; BwdOdd (addr3 , addx 2 , addrl . dAG, dAH, dBG 
; addr0*»ine 

; BwdEven (addrO. dBG. dBH. dAC.dAH) 
; addrl* sine 

; BwdOdd ( addrl , addr 0 • addx 3 , dBG • dBH , dAG 
; addr2*«inc 
; addr2<end 
? while 

• BwdEnd2 ( addr 2 , dAC, dAH , dBH) 
addr 3* *inc 

BwdEad3 (addr 3 . addr2, addrl, dAG, dAH, dl 



; no local variables 
; store registers 

; inc*incl 
; base -data 



Ctiorrm iTf ritrrr /rv rt r *r*y 
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nxvej . 1 


a5.a4 


: endsbase 


adda . 1 


$0010ia6) ti 4 


: end* -eencl 


Bwd 


a5.a4.d3 


- Bwd (base. end. ir.c: 


adda . 1 


S0014 ia6 ; .*j 


- sase*=;nc2 


cmpa. 1 


S0016(a€).aS 


endi>base 


Die . w 


Odo ! 


for 


-rev en*.. 1 


(a'i-.d^-^/ai-ai 


restore registers 


urlk 




remove locals 


res 




return 


ENDFUNC 







END 



WO W/23385 



PCI7GB*4y00«77 



- 723 - 

Engineering: Kl i csCcde :CcmpPicr tCclour. c 



• © Copyright 1993 KLICS Limited 

9 All right* reserved. 
• 

• written by: Adrian Levis 

** " * ••/ 

• » 

• Test versions cf colcur space conversions in C 
V 

i include <Memory.h> 
■include <OuicXDrav. h> 

■define NevPcinter (per. type, size) \ 
save2one=GetZone ( ) ; \ 
SetZone (SystemZonei ) ) ; \ 
if tnil»» iptre ( type) NewPtr (size) ) ) { \ 
SetZone (ApplicZoneO); \ 

if <nilss(ptrs<type)NewPtrl3ize))| { \ 
Set Zone ( savezone ) ; \ 
return (Memorytrror ()) ; \ 

) \ 

) \ 

SetZone ( save Zone ] ; 

cypedef union ( 

long pixel; 

char rgb(4]; 
) Pixel; 

/• Special YUV space version •/ 
•define rgb_yuv (pixniap, ycj \ 

pixel. pixel«0x80808<r # pixmap**; \ 

r»t short) pixel. rgb(l) ; \ 

gs ( short) pixel. rQb [2 J ; g*sg; \ 

b» (short ) pixel. rgb(3 J ; \ 

Y«(b«3)-b; \ 

g*»r; \ 

Y*Bg*g*g; \ 
Y»»4; \ 
Y»«g; \ 
•Yc**«Y; \ 
Y»-2; \ 
U*»b-Y; \ 
V*«r-Y; 

^define limit (Y, low, high) \ 

Y< ( lcv««2 ) ?lov«2 : Y> (high«2) ?high«2 : Y 

/* Standard YUV space version - Bt294 CB07IO) mode limiting •/ 
^define rgb J _yuv32 (pixwp. Yc) \ 

pixel- pixel »0x8 08 080 **pixmep**; \ 

r=(lcmg)pixel.rgb(lj ; \ 

g» (long) pixel. rgb (2 ) ; \ 

b- ( long) pixel. rgb{ 3 j ; \ 

Y« (306*r ♦ 602*9 * 117*b>»8; \ 

•YC— ■ 'limit (Y, 16-128.235-128); \ 

U»« (512T - 42S*0 - 83«b)»8; \ 

V*. <-173*r - 339*g * 312 # b)»8; 

void P.GB2YDV12 Hong •piwnap. short # Yc. short •'Jr. short *vc, int area, int wid 
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long •pijcr*dp2«pi3cnap*cols. 'row. * endspix'nap-aree; 
sncrc *Yc2»Yc*widtn; 

-t.; ie i pi»nap<erid) ( 
row=pixMp*vidch; 
while ipix*»ap<row> { 
Pucel pixel; 
•on? r.g.t.Y.U»0.v»C; 

rgb_yuv32 (piwaap, YO ; 
rgb_yuv32 (pixrnap, Yc) ; 
rgb_yuv32 !pixmap2. Yc2) ; 
rgb_yuv32 ipiwnap2. Yc2i ; 
D>>=2; 
v>> = 2 ; 

•UC**=limiC (J. 16-128, 240-128) ; 
•Vc**» limit (V. 16-128.240-128) ; 

) 

pixirap* eco ls*co Is -width; 
piwnap2* =col 3*cols -width; 
YcTwidth; 
Yc2*»width; 

) 

) 

cypcdei struct ( 

snort ry. rv. by. bu; 
) RGB.Tab; 

OSErr RGSTabletlcng ,# tab) 

i 

HCB.Tab -table; 

int i ; 

THi sav«2one; 

Nevpo inter (table . JiGB.Tab* , 256 *sizeof ( RGB. Tab > ) ; 
•tab»(long • ) table; 
for(is0:i<128;i**) ( 

tabled) .ry»306«i»8: 

tabled) .rv«173 # i»8? 

tabled) .ty»117»i»8; 

tabled) .bu»83»i»8; 

J 

fonisl28;i<256;i~) { 

tabled] . ryO06» < i-256)»8; 
tableli J .r/=173» (i-256)>>3; 
tabledl .by»117« d-256)»8: 
table[i] . bu.83M i-256) >>8; 

) 

return inotrr ) ; 

) 

typedei struct t 

short ru. gu, bv. gv; 
) CJV32_Tab; 

UV32_Tib •UV32.Table( ) 

( 

UV32_Tab *table; 
in- i ; 

table* i W32_7eb • >Nevi>crl236*siieof (U\02_Tab) > r 
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£sr(i»C;i<128;i— i { 

cable (i) .ru=:28*(14 36*i>>10) ; 
:atle(i) .gv*128~< -731»i>>10) ; 
:able(i) .bv=i28-f 1815»i>>10) ; 
tabled] .gvs-352 *i»l0; 

) 

for<i=i28:i<25€;i*-) •; 

cabled) .ru=12 8*i 14 36' i i -256) »10) ; 
table (i) .gu=128<H -731 •( 1-256 > >>10) ; 
:aJDle(i] .bv=128* < 1815* { i -236 > »10) ; 
cabled] -gv«-352* (i -256) >>10; 

) 

return (cable) ; 



typedef struct ( 

long a. v; 
) OV32Tab: 

OSErr UV32Table(long **tab) 

I 

long •ytab; 
UV32?ab •uvtabi 
int i ; 
THz saveZone; 

Newpointtr ( •tab. long* , 512 *3ixeof ( long ) *312 • 3iz«of ( W32Tab) ) ; 
ytab**tab; 

uvtab« <UV32Tab* )4ytabt312] ; 
for (1.-256; i<256; ( 
long yyy. sp; 

sp=0x000000fe4<i<- 12870 : i>127?235 : i*128) ; 
yyy»»p; yyy««8; 
yyyissp; yyy<<«8; 
yyy l»sp; 

ytab{0x000001*f4i)=yyy; 

) 

tor<is-256:i<256;i**l ( 
long ru,gu.bv,gv: 

rueOxfffffffe 4 (1436*i>>10) ; 

gusOxOOOOOlft 4 <-731*i»10); 

bv*0x000001fc 4 I1813*i»10); 

gv=0x000001fe 4 (-352'i»10); 

uvtab[0x000001FF4i] .u* ( (ru«8) Igu)«8; 
uvcab(0x000001FF4ij ,v» (gv<<8 ) Ibv; 

) 

recurn(noErr) ; 

) 

typed* f struct ( 

short u, v; 
) UVUTab; 

OSErr uvieTabUUong ••tab) 

( 

short •ytabf 
UV16Tab •uvtab; 
int i ; 
THt save lent; 
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NevPcinterl # cab, long* . 512 •si2eof ( short .»•! 12 • siieof ;'JVl6Tabi » 
y:ab=M short '•lt&b; 
uvtab»iUV16Tab* liytab(512] ; 
tori i = -256; i<256;i-*l ( 

long yyy. sp; 



sp.0x0000001e& I ! i< * 129 ?0 : i> 12 7 *25 5 : : 
yyy = sp; yyy<<=5; 
yyy I =sp: yyy«s5: 
yyy I = ap; 

ytabf 0x000001 f lii)=yyy; 

tori is-256: i<256 ; I ( 
long ru. gu. bv. gv; 



•1281 >>3i 



rurOxfif tttt* fc 
gu=0x0000003e k 
bv»0x0000003e 6 
gv. 0x0000003* & 



U436»i>>13) 
i-731'i»13» 
(1815'i>>13) 
(-352-i»13) 



uvcab{Ox000001FFfci] .u*< <ru«5) lgu)«3; 
uvcab[Ox000001FFfci] . vs igv<<5> Ibv; 

} 

returntnoErr) ; 



) 



♦define over(val) \ 
i (OxFFOOalvai) ) 



s* 0) ?<char)val:val*0?0:253 



i* Standard YUV space version V 
idefine yuv_rgb32 tpixmap. Yc) \ 

Ys (*rc**l >>2; \ 
pixel.rgb(11=over(YT); \ 

pixel. rgb[2)«over(Y*g); \ 

pixel. rgb(3)=over<Y*b); \ 

*piaanap** s pixel . pixel ; 



void 
( 



YUV2RGB32(long -pixaap. short *Yc. short # uc. short *vc. inc area, int wid 



long •pix3n*p2»pixmap»cols. *row. •end«pixjaap*ar*a j 
short •Yc2sYc»width; 

while I pi x?nap«end) < 
rovepxxmap* width; 
while ipixmap<rovi ( 
Pixel pixel; 
long r.g.b,Y.U.V; 

Os (*Uc**l »2; 
V« l*Vc** >>>2; 
r S l2e♦ll436•U»10); 
g«128♦(-731•U - 352*V»10>: 
b»128*U815*V»10); 

yuv_rgb32<pixmap. Yc) ; 
yuvlrgb32 (pixmap. YC) ; 
yuv_rgb32(pixmap2. Yc2) ; 
yuv_rgb32 <pixnap2 , Yc2 ) ; 

) 

pi«nap*»coia*col» -widen; 
pixnap2 • •cola* col a -width; 
Yc*«width: 
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Yc2**width; 



tdecine rgb32_yuv ipixmap, Yc) \ 

pixel. pix«l = Ox608080* , piJOTiap**: \ 
rspixel.rgblll: \ 
g.pixel.rgb!2]; \ 

Y^Uafcie^OxFFtr] .ry ♦ (g«2 ) -tab>le(OxFFLg] . ry-tablc (OxFFigl . by ♦ tablelOxFF&fc 
•YC** = limit(Y. 16-128.235-1281 ; \ 

U#. (r<<l) -g -cable [OxJTfcg) .rv - table! OxFTSb) .bu; \ 
v*« {b<<l> -g -table fOxFFir] .rv - tablefOxFFig) .bu; 

void RCE32YUV i RGB.Tab 'table, long *pixmap. short *yc, short 'UC, short -vc. int 

long- •pixmap2»pixmap*cola. 'row. *end»pixmap*area; 
short «Yc2=Yc*width; 

while (pixaep<endi ( 
rov»pixmap* width; 
while (pixmap<row> ( 
Pixel pixel; 
long r,g,b,Y.0sO,V»O; 

/* rgb32_yuv<pixmap,Yc) ;•/ 

pixel. pixel«0x80e08<r»pixmap**; 

r*pixel.rgb(l]; 
g»pixel.rgb[2J; 

Y« P ^tabie?0xF?4rJ .ry ♦ lg«2> -table fOxFFfcg] .ry- cable I OxTFfcg] .by ♦ tabl 
•Yc— a limit (Y. 16-128.235-128); 

U*. <r«l> -g -t*ble{OxJTig).rv - table {OxFTXb) .bu: 
v*« ib«a) -g -table(0xFF4rJ.rv - table lOxJTfcg] .bu; 

rgb32_yuv (pixaap, Yc) ; 
rgb32_yuv (pixnap2 . Yc2 ) ; 
ro;b32_yuv(pixaap2,Yc2) ; 
U»»2; 
V»c2; 

•UO*«limit (0. 16-128.240-128) ; 
♦vc*»»limic(V. 16-128. 240-128) ; 

pix3nap*»col«*cel» -width; 
pjjanap2*«cola*ccl8 -width; 
Yc*»width; 
Yc2* wwidthi 



♦define yuv_rgb32x2 (pixmap. Y) \ 
pixel. rgb[l)»over(Y*r); \ 
pixel. rgb( 2] -over (Y*«)> \ 
pixel. rgb[3)«over(Y*b); \ 

pixaap [ co l»1«plMl. pixel; \ 
•pixmap**«pixel .pixel ; 

void YUV2RCB32x2(OV32_T«to -table, long •pixaap. shorr *Yc. short *Uc. abort -vc. 

* long •pixmap2»pixMp*S«col» # •row, •end»pixmap*aree; 
short •Yc2«Yc*width; 



rnorTtTirrr ruirrr mtm c *w\ 
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while (pix?nap«end) ( 

long Yclds - Yc>>2. Yold2s*Yc2>>2; 

rowspiwtap*wi<Jth # 2 ; 
whiile (pixjr.ap<rov) ( 

Pixel pixel; * 

long r.g.b.Y.U.V; 

UsOxOOFFt ( t *Uc*«» » >>2 ) ; 
V=OxO0FF* ( ( *Vc** ) >>2 ) ; 
r»cable fU) .ru; 
g=cablelU) .gu»table[V] .gv; 
b«table(VJ .bv; 

Y=< 'YC**) >>2; 
Yold=(Y*Ycld)»l; 
yuv_rgb32x2 (pixraap, Yold) ; 

Yold»Y; 

y\av_rgb32x2 (pixniap, Yold ) ; 

Y«( 'Ye**) >>2; 
Yolde(Y*Yold)>>l; 
yuv_rgb32x2 (pixreap, Yold) ; 

YoldsY; 

y\jv_rgb32x2 (pixmap, Yold) ; 

Y«('Yc2*^)»2; 
Yold2*(Y*Yold2)»l; 
yuv_rgb32x2 <pixnap2. Yold2 ) ; 

Yold2»Y; 

yuv_rgb32x2 (pixmap2. Yold2 ) ; 

Yst*Yc2**)»2; 
Yold2«(Y^Yold2)»l; 
yuv_rgb32x2 (pixmap2, Yold2 ) ; 

Yold2»Y; 

yuv.rgb32x2 <pixnAp2 . Yold2) ; 

) 

pixTOAp*&4*col3-2*vidth; 
pixioap2*«4 •col3-2»width; 
Yc*«%*idth; 
Yc2««widch; 

) 

) 

•define yuv_rgb8 (pixel. Yc # index, dith) \ 
Ys*Yc** ; \ 
Y««3; \ 
Y4- 0x3F00; \ 
Yl« 0; \ 

pixel . rgb( index) -cable (Y] . rgbCdith) ; 

void YUV2RCB8 (Pixel *table.long -pixroap. abort •Yc, short short •Vc. int a 

< 

long •pixnap2»pi3onap*cols/ 1, *row, •end*pixmap*area/4; 
short •Yc2«Yc*widtb; 

while ipixmap*end) ( 
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r o w i xmj i dt h / 4 ; 
while (pijawp<rov) ( 

Pixel pixel. pixel2; 

long Y.U.V; ■ 

V= »Vc** ; 

U>>s2; 
Vj>s€; 

U= (U&CxFO) i IViOxOFI: 

yuv.rgbS (pixel . Yc. 0. 3 ) ; 
y\jv_rgb8 (pixel. yc. 1 . 01 ; 
yuv.rgbS (pixel2 . Yc2 . 0 . 1 ) ; 
yuv_rgb8 tpixe!2. Yc2, 1.2 ) ; 

U»*Oc**; 
Vs'Vc**; 
U»«2; 
v>>«6; 

U« (U&OxFO). I (VtOxOF); 

yw_rgb8 (pixel, Yc, 2, 3 ) ; 
yuv_rgb8 (pixel. Yc. 3,0) ; 
yuv_rgb8 (pixel2 . Yc2 . 2 , 1 ) ; 
yuv.rgbS lpixel2. Yc2,3.2) ; 

*pixmap**apixel. pixel; 
*pucMp2**.pixel2. pixel; 

J 

pixnap+a (cols*col8-width)/4; 
pixwp2*e (cols+cols-widch) /4: 
Yc*«wideh; 
Yc2*»width; 



) 



•define yuv_rgb8x2Jpixel . pixel2. Y, index, dith, dith2) \ 
. Yfc- OxOFOO; \ 
Yl= O; \ 

pixel . rgb [index) stable (YJ .rgb (dith] ; \ 
pixel2.rgbf index) stable {YI .rgb(dith2] ; 

void YUV2RCB8x2 (Pixel 'table, long # pixmap, short # Yc. short *uc. short - *vc, int 

{ 

long *pix7&ap2&pixaap+cols/2, tow, *end»pixmap*are*/4 ; 
short * Yc2 =Yc*width; 

while (pixnap<end) { 

long Yoldc»Yc«3, Yold2s»Yc2«3: 

rowrpixxiap*width/2 1 
while (pixmap<row) ( 

Pixel pixel, pixel2, pixel3, pixe!4; 

long Y,D,V; 

0>*Uc«-+; 

0>>»2; 
V»»6j 

0» (OtOxOOFO) I (VlOxOOOf); 
Y« (•Yc*»0«O; 



ri ibctiti rrc rurrr /nin r **r* 
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Yold»tY«>Told)»l; 

yjv_rgo8x2 (pixe 1 . cixel2 . Y. 0. j . : ! ; 

Yold*Y; 

yuv_rgt)8x2 * pixel. pixel2.Y. 1.C.2) ; 
YoldzY; 

Ys(»Yc**J<<3; 

YOlds ( Y»Yoldi >>1; 

yuv_rgfcBx2 ipixel. pixel2. Y.2. 3. 1) ; 

Yold=Y: 

y\jv_rcb8x2 (pixel. pixel2. Y, 3. 0. 2) ; 
YoldaY; 

Y*( •Yc2**><<3: 

Yold2s (Y*Yold2)»l; 

yuv_rgb8x2 (pixe!3. pixel*. Y.O. 3. 1) ; 

Yold2»Y: 

yuv rgb8x2(pixe!3.pixel4. Y. 1,0,2) ; 
Yold2*Y; 

Ys<*Yc2 — l«3; 

Ycld2*(Y-Yold2) »1: 

yuv.rgb8x2 (pixel3.pixel4, Y, 2. 3. 1) ; 

Yold2«Y; 

y\jv_rgb8x2 (pixel3.pixel4. Y. 3.0.2) ; 
Yold2-Y; 

pixr»p(COli/4)spixel2.pixel; 
*pixaap**«pixel . pixel ; 

pixwap2 (cols/4) «pixel4 .pixel; 
•pixmap2**«pixel3 .pixel; 

) 

pixnap*«lcols*cols-width) /2; 
pixjnap2*« <eols*cola- width) /2; 
Yc*»widch; 
Yc2*»width; 



define yu v.rgbTESTt pixel. index. Y) \ 
rgb_col.red»<Y*r«8) ; \ 
rgb_col .greens <Y*g«8) ; \ 
rgb_col.blue«(Y*b«e> ; \ 
pixel . rgb[ index] «Colox2Ind«x Urgb.col ) ; 



id YW2RCBTEST(UV32_T*b "table, long •pixmap, short *Yc. short *Uc. short *Vc. 

long •pixmap2=pixjaap*col8/2. # rov. •endspixroap*axe«/4; 
short •Yc2«Yc*width; 

while ipixaap<end) ( 

long Yold«»Yc«3, Yold2»»Yc2«3 ; 

row»p ixmap* w i dt h/ 2 ; 
while tpixmap<row) ( 

RGBColor rgb.col ; 

Pixel pixel, pixe!2; 
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long * r.g.b.Y.O.V; 

UsOxOOm t ( •UCo* ) >>2 ) ; 
VsOxOOFTK CVc**)>>2) : 
r«cable[U] .m; 
g»t*ble(U] .gu*tablefV) .gv; 
b-ca£le[Vl .bv; 

Y=< •Yc-*>>>2; 
Yold=(Y*Yold)»l; 
rgb.col . red* ( Ycld*r<<8 ) ; 
. rgb.col. greens (Yold*g<<8) ; 
rgb_col.blue»(Ycld*b«8) ; 
pixe 1 . rgb( 0 ) *Color22ndex i txgb_col ) ; 

Yold»Y; 

yuv.rgfeTEST (pixel . 1 , Yold) ; 

YsCYc**)»2; 
Yold-(Y*Yold>»l; 
yuv_rgbTEST(pixel,2.Yold) ; 

YoldaY; 

yuv_rgbTEST< pixel, 3, Yold) ; 

Y« <*YC2**)»2; 
Yold2«(Y*Yold2)»l; 
yuv.rgbTEST <pix«12 . 0, YoldS) ; 

Yold2aY; 

yuv.rgbTEST (pixel2, l,Yold2); 

Y«(*Yc2**J»2; 
Yold2a<YVYold2)»l; 
yuv.rgbTXST (pix«X2 , 2 . Yold2) ; 

Yold2«Y; 

yuv.rgbTEST (pixel2 . 3 . Yold2 ) ; 

pixnapfcols/4 ] spixel . pixel; 
•pixmap**«pixel .pixel; 

pix»ap2 (cols/4 ) »pixe!2 .pixel; 
"pixmap2**spixel2 .pixel; 

) 

pixnap+» (cols*col9-vidth) /2; 
pixmap2*» (cole*colfl-vidCh> /2; 
Yc*«width; 
Yc2**vidch; 
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C Copyright 1993 KLICS Limted 
All rights reserved. 

written by: Adrian Lewis 



68030 Colour space conversions 



machine 
seg 

include 



mc68030 
'klics* 
'Traps. a* 



macro 
CFr32x2 

add.l 
lsr.l 
add.l 
lsr.l 

move. 1 
add.l 
move. 1 
add.l 
move. 1 
add.l 
move. 1 

move. 1 
rub.l 
move. 1 
sub.l 
move. 1 
sub.l 
move. 1 

endm 



tAKGB. 4 row, toO. tol. tnO, fcnl 



4n0.4o0 
•l.toO 
tnl.tol 
♦1.401 

toO. <4AJIC8> 
4row.4ARCB 
toO, (tAACB) 
4xow.tJUlCS 
4ol. (4>*CB) 
&XOV.4AXCB 
4ol. (4ARGB)* 

fcnl. (4AACB) 
trow, 4AXGB 
4nl. (4ARGB) 
4TOW.4ARCB 
4nO f (4AAGB) 
txow, 4ARGB 
tnO, <4ARG8>* 



interpolate first pixel 
interpolate first pixel 



• 


macro 
DFY32 


tAXGB, trow. toO. 


4ol. tnO. tnl 




move. 1 
add.l 
move. 1 


toO, (4AKGB) 
trow,tARGB 
tol. ( tAKGB) * 




* 


move.l 
sub.l 
move. 1 


tni. (tAKGB) 
trow. tARGB 
tnO, 14AKGB)* 






ends 






• 


macro 
UV2RGB32 


tAQ.tAV.tTAB 






add.l 


f 2048 .4TAB 


; move co 




move.w 
lsr.w 
and. w 


tAU.dl 

•2.dl 

• SOllT.dl 


; Load U 



c;i idctiti rrr cucrr /pi n c m 
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move.l 



(&TAB.dl.v*8l .dO 



LJV now rg <u) 





movi.w 

isr.w 
and. v 
add.l 


tAV.dl 
•2.dl 

•soirr.di 

4UTA£,dl.W8) ,d0 


; Load V 

; 'JV now rgb 




move. 1 
move. 1 
move. 1 


dO.dl 
CO. 62 
d0,d3 


; 3 copies 




sub.l 


12048 . (TAB 


; restore ytab 


• 


endm 






• 


macro 
GETY32 


kAY, 4TAB. &RCB0, 6RGB1 






move. 1 
lar.w 
and.w 
add.l 


*JlY,d4 

•2.d4 

#$01FT.d4 

UTAB,d4.V4) .&RCB1 


;Y 

; RGBl*sYYY 


• 


swap 
lar.w 
and.w 
add.l 


d4 

#2. d4 
#S01rT.d4 

UTAB.d4.w*4),4RCB0 


; RGB0**YYY 




ends 








macro 
0VDO2 


4 RGB 





6pos23 
$bitl6 



eesd 
ftnx^ryb 



move. 1 

andi.l 

beq.a 

btat 

beq.a 

beat 

beq.a 

audi . 1 

bra. a 

ori.l 

btat 

beq.a 

beat 

beq.a 

andi.w 

bra. a 

ori .w 

beat 

beq.a 

btat 

aeq 

andi.l 



endte 



&RC8.d4 

•S01010100.d4 

inx^ryb 

• 24. d4 
9bitl6 
•23.&RGB 
8poa23 

• $0000ff Bf.tRGB 
8bitl6 v 
#SOOffD000.4RGB 
*16.d4 

ObitS 
•15.4RGB 
8poal6 
•$00ff ,*RGB 
«bitfl 

*Sf f00.*RCB 

#8,d4 

fend 

&RCB 
tRGB 

tSOOfefefe.fcROB 



copy pixel 

was it thia rgb 

if not then quit 

R overflow? - 

if not then continue 

teat aign 

if poaitive 

underflow seta R to 0 

do next bit 

overflow aeta R to 255 

G overflow? 

if not then continue 

test sign 

if positive 

underflow aeta G to 0 

do next bit 

overflow sets G to 255 

B overflow? 

if not then continue 

test aign 

under/over flow 

mask RGB ok 



macro 

HASHOGT32 

move. 1 



4AH, 6D0. tDl. IDS. &D3 
&D0,d4 



fi iBr'Ti^itrr rurrr »nm ^ ***** 
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add. 1 


m iDl.d4 








add.l 


4D2.d4 








add.l 


ID3.04 








andi . 1 


•S03e3e3eO 






• 


•WW • A 


d4. tAH 








en am 










macro 








• 


HASHCMP3 


2 &AH. fcDO. J 


tDl. &D2. iD3 






move. 1 


&D0.d4 








add.l 


4Dl.d4 








add.l 


4D2.d4 








add.l 


4D3 . d4 








andi . 1 


•SO3e3e3e0.d4 




• 


crnp. 1 


&AH,d4 








endm 








OUT32X2 
• 


FUNC 


DC PORT 






DC 


ACCORD 


e 






CoDl € 


DS. L 


i 






pixznap 


DS - L 


i 








DS. L 


i 






n 


DS . L 


l 






V 


DS . L 


i 








DS. L 


L 






height 


DS . L 


1 






rowByt • 


DS.L 


1 






pixnap2 


DS.L 


1 






• 


UWK 








LS 


R2C0RD 


O.DECA 






Yl 


DS.L 


X 


; sixeof (short ) *Yrov 


■ 


U_ex 


DS.L 


1 


; x end address 


* 


U.cy 


DS.L 


1 


; y end eddies a 




u_ix 


DS.L 


1 


; s it eof (short ) •UVrow 


a 


Y-y 


DS.L 


1 


; sizeof (short >*Yrow 




P-y 


DS.L 


I 


: 4*rowByce9-siz«of ( long) *Prow 


m 


LSize 


EQU 


• 








ENDR 









aO - Y, al 

dO • rgbOO, 



2 » width 
04-O_ix 

0* wi dtn* he ight » 

width 

2 • width 

4 * rowdyxet -width 



- 0. a2 - v, «3 - pixmap, a4 - table. a5 - pixroap2 
dl - rgbOl. d2 - rgblO. d3 - rgbll. d4 - spare, d6 - oldO. d7 



linx 


a6, #LS. LSixe 


; inc. width, fend 


movem. 1 


d4-d7/a3-a3. -(e7) 


; store registers 


move 


SR.dO 




move. 1 


PS.Y(a6) ,aO 


; YsYc 


move. 1 


PS.U(a6) ,al 


; O.UC 


move. 1 


PS.V<a6>,a2 


; V*Vc 


move. 1 


PS.pixmap(a6) ,e3 


; pmspixmap 


move. 1 


PS.table(a6) ,a4 


; tabs table 


move. 1 


PS.pixmap2 (*6) ,a5 


; pm2*pixmap2 


move. 1 


PS.vidth(a6),dO 


; LOAD width 


move. 1 


dO.LS.O_ix<«6) 


; SAVE D.ix 


move.l 


PS. height (*6) .dl 


; LOAD height 


mulu.v 


dD,dl 


width'heiohc 
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@do_y 



lsr.l 
add.l 

add.l 

move. 1 

move. 1 
lsl.l 
mcve . 1 
lsl.l 
sub.i 
move . 1 

nov« . l 

clr.l 
clr.l 

move . i 
add.l 
move. 1 



Sdo_x UV2RGB32 

move. 1 
CETY32 
CITY 3 2 

move* 1 

or.l 

or.l 

or.l 

andi.l 

bne.s 



• l.dl 
al.dl 

<il.LS.U_ey(ai) 
dO. (30 

dO, LS.Y1 (a6) 
d0.LS.Y_y(a6) 

• 2.60 

FS.rowByte<a6) ,61 

• 2.dl 
dO.dl 

dl.LS.F_y(a6) 

PS.rowByce(a€) ,d5 

d6 

d7 

LS.U_i*(a6> ,d0 
al.dO 

dO.LS.U_ex(a6) 

(alU. <a2)*,a4 

LS.Yl(a6).d4 
(a0,d4.1) .a4.d2.d3 
<a0>o.e4.d0.dl 

d0.d4 
dl.d4 
d2.d4 
d3.d4 

•S01010100.d4 
9ov«r 



0ok KASHOOT32 <a3 ) ♦ . dO . dl ,d2 , d3 

DPY32x2 a3.d3,d€,d7.d0.d2 

DPY32x2 a3.d5,d0,d2,dl.d3 

move .1 dl , d6 

move .1 d3 , d7 

cmpa.l LS.U_ex<a6) , al 

blew «do_x 

add.l LS.Y_y<a6) ,a0 

add.l LS.P_y(a6) .a3 

cmpa.l LS.U_ey <a6) , al 

blew 9do_y 

nwven.l ta7 J ♦ , d4-d7/a3-a3 

unlX a 6 

ITS 

9 over 0VEJO2 dO 

OVER32 dl 

OVER32 d2 

OVER32 d3 

bra *ok 

* 

ENDFUNC 



width # hei9ht;2 

U*width - heigtit/2 
SAVT u_ey 

width # 2 
SAVE Yl 
SAVE Y_y 

width*8 
LOAD rowBytec 

rcwBytes"4 

rovByces • 4 -width • 8 
SAVE P_y 



load rovByt es 
clear old2 
; clear oldl 

; LOAD U.ixfi 
; P*U_ixB 
; SAVE U_exB 

; uv2rgbi *v**) 
r load Yrow 

r add Yb to RGB values 
; add Ya to RGB values 



if overflow 



copy olds 



restore registers 
remove locals 
return 



OUT32X2D 



FUNC DCPORT 
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Ki 
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a 


PS 


RXCORD 


* 6 








table 


. DS.L 


\ 








pixnup 


DS.L 










V 


DS.L 










f J 


DS.L 










V 


DS.L 










width 


DS.L 










heigr.r 


DS.L 










rcwByce DS.L 










pijcnap 


: DS.L 










* 


ENDR 










LS 


RECORD 


O.DECR 








Yl 


DS.L 


1 ; sizect (short ) •Yrow s 


2 'width 


U_ex 


DS.L 


1 ; x end 


address = 




U_ey 


DS.L 


1 ; y and 


address s 


U*width*height» 


U.ix 


DS.L 


1 ; sneof (shore) # UVrow » 


width 


Y_y 


DS.L 


1 ; si zeof (short ) 'Yrow = 


2»width 


P_y 


DS.L 


1 ; 4 •rowBytes- a izeof (leng) - Prow » 


4 • rowBytes -width 


LSize 


ECU 


* 








* 


D4DH 










• 


aO - Y. 


al - U. a2 - V. a3 - 


pixmap, a4 - cable, aS - pixmap2 


• 
• 


dO - rgbOO. dl - rgbOl. d2 - 


rgblO. d3 - rjbli, d4 - spare 


, d6 - oldO, d7 




link 


a€. tLS.LSize 




; inc. width, fend and 


rowend are loca 


• 


movem. 1 


d4-d7/*3-a5.-(a7) 




; store registers 






move. 1 


PS,Y(e6).aO 




; Y«YC 






move . 1 


PS. 01*6). al 




; U»Uc 






move. 1 


PS.Vta«>.a2 




; V.Vc 






move. 1 


PS.pixmap<a6) ,a3 




; pmrpixmap 






move. 1 


PS.tabltta6),a4 




; cab»cable 






move. 1 


PS.pixmap2 (a6) ,e5 




; pn2spixmap2 






move . 1 


FS.width(e6) .dC 




; LOAD width 






move. 1 


dO.LS.U_ixta6) 




; SAVE D.ix 






move.l 


PS. height (a6) ,dl 




; LOAD height 






mulu.w 


dO.dl 




; width*height 






19X.1 


•l.dl 




; vidtMhcight/2. 






add.l 


al.dl 




; U*width»height/2 






move. 1 


dl.LS.y_ey<a6) 




; SAVE U.ey 






add.l 


dO.dO 




; width*2 






move . 1 


dO.LS.Yl(a6> 




; SAVE Yl 






move. 1 


dO.LS.V_y(a6) 




; SAVE Y_y 






lsl.1 


• :.do 




; widtl:*8 






move . 1 


PS.rowByre(a6) .dl 




; LOAD row cry tea 






lsl.l 


*2.dl 




rowpytes»4 






sub. a 


dO.dX 




r owby t e s * 4 - w i dch • 8 






move. 1 


dl.LS.P_y(a€l 




; SAVE P_y 






move. 1 


PS.rovByte ia6) ,d3 




; load rowBytes 






clr.a 


d6 




; clear old2 






clr.l 


d7 




; clear old! 




0do_y 


move. X 


LS.U_ixte6).dO 




; LOAD 0_ixB 






add.l 


al,dO 




P*0_i*B 






move. 1 


dO.LS.D.tx(a6) 




; SAVE U.exB 




fido_x 


UV2RCB32 


(al)*, (a2)+,a4 




; uv2rgb(*U**. »V**) 






move. 1 


LS. Yl(a6),d4 




; load Yrow 






CETY32 


<a0.d4.1).a4.d2.d3 




; add Yb to RCB values 
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GETY32 <aON.a4.dO.dl ; add Y* co RGB values 

move.i d0.d4 

or.l dl,d4 

or . 1 62.64 

or.l d3.d4 

andi.l •$01010100,d4 

bne.w «over ; if overflow 

<?ok HASHCMP3 2 ( a5 ) ♦ . dO, dl . 62 . d3 

bne.s Qdiff 



add.l #16, a3 ; add four pixels 

3csnc move.i dl.d6 ; copy elds 

move .1 d3 . d? 

cnpe.l LS.U_ex(a6) .al 

blew 9do.x 



add.l LS.Y.y(a€) ,a0 

add.l LS.P_yta6),a3 

cnpa.l L5.0.ey(a6).al 

blt.w «dc_y 

mcvem.l <a7 ) * . d4-d7/a3-a5 ; restore registers 

unlk a6 ; remove locals 

_ . . - _ rt$ . ; return 

Qditf move.i d4.-4(a5> 

DPY32x2 e3,d3,d6.d7.d0.d2 

DFY32x2 a3.d5.d0,d2,dl.d3 

bra . a 9eont 

»ov«r OVER32 dO 

OVER32 dl 

OVER32 d2 

OVER32 d3 

bra «ok 



ENDFUNC 



OUT32 
• 


ruNc 


EXPORT 








PS 


RECORD 


8 








table 


DS.L 


1 








pixmap 


DS.L 


1 








V 


DS.L 


1 








u 


DS.L 


1 








V 


DS.L 


1 








width 


OS.L 


1 








height 


DS.L 


1 








rovfiyte 


DS.L 


1 








pi3rrnap2 


DS.L 


1 








• 


QWR 










L5 


RECORD 


0, DECK 








Yl 


DS.L 


1 


i 


siieof t abort ) *Yxov 


« 


u_« 


DS.L 


1 


1 


x end addxeas 


s 


D.ey 


DS.L 


1 


• 
• 


y end addxeas 


■ 


U.ix 


DS.L 


1 


; 


slzeci (short ) *(T/rov 


■ 




DS.L 


1 


; 


aizeof (short ) 'Yrov 


s 




DS.L 


1 


i 


2*rowBytes-sixeof (long) •Prow 


• 


LSize 


EOO 


• 







2 'width 
0*U_ix 

U*vidth*hei9ht» 

width 

2*vidth 



cuncTiTinr cucrr /dim c w 
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9do_y 
©de_x 



DJDR ~ 

aO - Y. aX 
dO - rgbOO 



- U, a2 - V. a3 - pixmap, 
dl - rgbOl. d2 - rcfcXO. 



link 


a6. ILS.LSi2e 


movent . 1 


d4-d7/a3-a5 -Ia7) 


liuvi: . a 




move . 1 


DC niitl > * 


move . 1 


DC \t t mC \ » ^ 

P5 . v (ao j » a* 


move. 1 


PS.pixmapia6) . a3 


move . 1 


FS.tableia6) .a4 


move. 1 


PS ,paxraap2 I a6 ) . a5 


move. 1 


PS.width(a6) .dO 


move. I 


dO.LS.l'_ixia6) 


mot/ # 1 


PS.heiaht Ia6) .dl 


muXu.w 


dO.dl 


1 *r 1 




add.l 


al.dl 


move . 1 


dl. LS. U_ey(a6) 


aHH 1 


ha Hn 


move. 1 


d0.LS.YKa6) 


move. 1 


dO,LS.Y_yta6» 


add.X 


dO.dO 


move. 1 


PS.rowBytala6) ,dX 


add.X 


dl.dl 


sub. 1 


dO.dl 


move . i 


Hi rc d wimht 


move • x 


DC r^vj<K/r A l i<t *4 8 
r9 • i CVCyLC 1 AO J . Q3 


move . X 


LS.Ylla6J .d6 


move. X 


LS.F_ix(a6) ,d7 


add.X 


al.d7 


UV2RGB32 


(aXU. (a2W.a4 


GFTYJ2 


i au . at . i i . a 4 , a* , CJ 


GETY32 


Ia0»».a4.d0.dl 


move . X 


nn Ha 
ou * oi 


or. I 


dl.dl . 


or. X 


42. d4 


or.X 


d3.d4 


andi. X 


•soxoio:oo.d4 


bne.s 


Cover 


HASHOUT32 


(a5)*,d0.dl.d2.d3 


DFY32 


a3.d5.d0.d2.dl.d3 


enpe. X 


d?.al 


blt.w 


«do_x 


add.l 


LS.Y_y<a«>,aO 


add.X 


LS.P_y(a6>,e3 


cmpa. X 


t-S.V.ey <a6),al 


blew 




movem. X 


(•7U.d4-d7/a3-a5 



a 4 - cable. a5 - pixmap2 
d3 - rgfcll. d4 - spare. d6 - cldO. d7 

; inc. width, tend and rowend are loca 
; store registers 

YsYc 
U=GC 
V=VC 

pmspixmap 
tabs table 
pn2apixmap2 

LOAD width 
SAVE U_ix 
LOAD height 

width-height 

width"height/2 

U*width»heighc/2 
save u.ey 

width*2 
SAVE Yl 
SAVE Y_y 

width* 4 
LOAD rovBytes 

rowtytes*? 

rovBytee # 2-width»4 
SAVE P^y 

load rovBytes 
load Yrov 

LOAD U.ixB 
P^lLixB 

uv2rgb( # U*«*. *v**l 

add Yb to RGB values 
add Ya to RGB values 



if overflow 



restore registers 



tfir^n ht currr /ex " r no 
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our. a 





urUk 


^ d6 




rts 




f over 


DVER32 


dO 




CVER32 


dl 




OVXR32 


d2 




OVER32 


d3 


• 


bra 


v UK 




DJDFUNC 




OUT32D 
• 


■TUNC 


EXPORT 


PS 


RECORD 


8 


cable 


DS.L 


1 


pixmap 


DS.L 


1 


Y 


DS.L 


1 


U 


DS.L 


1 


V 


DS.L 


1 


width 


DS.L 


1 


height 


DS.L 


1 


rowByte 


DS.L 


1 


Pix7nap2 DS.L 


1 




ENDR 





; remove locals 
; return 



LS 
yi 

U_ex 
U_ey 

Y-y 

LSif 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

£00 

ENDR 

aO * 



O.DECR 

1 - 

1 

1 

1 

1 

1 
• 



sizeof ( short ) *Yrow 
x end address 
y end address 
sizeof (short) 'UVrow 
sixeof (short) # Yrow 
2*rowBytes-sixeof (long) •Prow 



2 -width 
u>0_ix 

U«*width*height» 

width 

2 'width 

2*rowfiytes-width 



dO - rgbOO. dl - rgbOl. d2 - rgblO. d3 - rgbll. d< - spaxe.d* - 



Yrow, d7 



link- a6,#L£.LSite 

movem. 1 d4-d7/a3-a3, - <a7) 

mov*.i PS.Y(a6) ,aO 

move.l PS.0(a6).al 

move.l PS.V(a6).e2 

move . 1 PS . pixnap < a 6 ) , a3 

move.l FS.tableia6>.a4 

move.l PS.pixmap2(a«) ,a3 

move.l PS.vidth(a6) ,dO 

move.l dO.LS.O_ix(a6l 

move.l PS. height ia6),dl 

nulu.w dO.dl 

lsr.l #l,dl 

add.l al,dl 

move.l dl.LS.O_ey (a6) 

add.l dO.dO 

move.l dO,LS.YKa«) 

move.l dO,LS.Y_yU6) 

add.l dO.dO 

move . 1 PS. rowByte <a6 ) , dl 

add.l dl,dl 

sub.l dO.dl 

move.l dl.LS.P^(e6) 



; inc, width, fend end rowend are Iocs 
; store registers 

; Y*Yc 

; 0.0c 

; V.Vc 

; pmspixnap 

r t*b»ctble 

r pm2cpixrMp2 

LOAD width 
SAVE U_i* 
LOAD height 

width*height 

width«height/2 

U*width»height/2 
SAVE U_*y 

width*2 
SAVE Yl 
SAVE Y_y 

widthM 
LOAD rowByteo 

rowBytes*2 

rowBytes»2-width*4 
SAVE p_y 
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epos 
9 ok 



move . 1 
move . 1 


~ PS.rcwByce(a6) .d! 
LS.Y1 (a6) .d€ 


; load rcwsyces 
; load Yrow 


move . 1 
add. 1 


LS.U.ixiaf i .d7 
al.d7 


; LOAD U.ixB 
P*U.;xB 


w*V2RCB32 


'al). ( (a2)*.a4 


; uv2rob< *U*^. •V».) 


move . 1 
CETY32 

crr»2 


-5. Yl (a6) .d4 
<a0.d6.1) .a4.d2.d3 
ta0>*.a4.d0.dl 


; load Yrow 

; add Yb co RGB values 
; add Ya co RGB values 


move . 1 

or.l 
or.l 
or.l 
andi . 1 
fcne .s 


d0.d4 
dl.d4 
d2.d4 
d3.d4 

f S010101GO.d4 
Cover 


; if overflow 


HASHCMP32 
bne.s 


taSI*.d0.dl.d2.d3 
9diff 




addq 


*6.a3 


; add four pixels 


crrpa . 1 
bli.w 


d7.al 
fido.x 




add.l 
add.l 


LS.Y_yla6).aO 
LS.P_yia6).a3 




CfflpA . 1 
blc w 


LS.O_ey(a6).al 




movem. 1 

unlk 

rta 

move . 1 

DFY32 

bra.s 

0WO2 

0VTJO2 

OVTR32 

OVTR32 

bra 


<a7)*.d4-d7/a3-a5 
a6 

d4, -4 (a5) 

a3.d5.d0,d2. dl. d3 

Scone 

dO 

dl 

d3 

d3 

0ok 


; rescore registers 
; remove locals 
; return 


ENDFUNC 







macro 




uvov 


tv\L, 40V 


move .w 


&VAL.40V 


add.w 


•50200. 40V 


and.w 


♦sreo 0,40V 


beq.s 


Ook 


csc.w 


40V 


bge.s 


«POS 


move.w 


•soirr. tvxL 


bra.s 


0ok 


move.w 


tSFEOO.&VAX 


endm 





ci lorrm rrc eucrr /Din c 
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JVL JMI . rUNC 


EXPORT 




* :ix dO. d4, spare 


dl^ 




JVOV 


dO.dl 




swap 


dO 




cvov 


dO.dl 




swap 


dO 


• 


evov 


d4.dl 




swap 


d4 




uvov 


d4.dl 




9wap 


d4 




res 

• 






ENDFVNC 





macro 

UVOVER &U. 4V 

move.l «S02000200,dl 

move.l <;i, d2 

add.l &U.dl 

add.i &V,d2 

or.l d2.dl 

andi.l #SFC00FC00.dl 

beq.s euvok 

bar UVXIHIT 



endm 
macro 

GE70V iAU, fcAV, iSP. 4UV 

move.l (4AU)*.4SP 

move.l (tAV)*,tov 

WOVER 4SP.fcOV 

lar.l ?5.*UV 

andi.l «$03e003eG, &SF 

andi.l •S001F001F. iOV 

or.l &SF,4UV ; UV*»S00UV00OV 

swap 40V 

endm 



macro 










GETTY 


4AY. tHJD. 4W, iRO. fcRl 








move . 1 


&AY. &K1 


; (2 + ) 


YrYOYl 




lsl.l 




r (4) 


Y«Y0XXY1XX 


andi.l 


• SFCOOFCOO, 45U 








or .w 


4UV.4R1 


: (2) 


YsYlUV 




move. 1 


(4IND.4R1 .W41,*R0 


• (2*) 


R0*0123 


fYl) 


swap 


fcRl 


(4) 


Y=YOXX 




or .w 


fcUV.iRl ; 


(2) 


Y.YODV 




move. 1 


(&2ND,*1U .V<),4R1 


(2*) 


Rl-0123 


<Y0) 


endm 










macro 










UV8 


tAU. 4AV, 4SP, *UV 








move.l 


lfcAU)*.*SP 








move. 1 


(4AV)*.«7V 








UVOVEF 


4SF.&0V 









ClIDCTlTinX CUCCT /Din C W 
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131.1 




* i . *5r 






law 1 














tSOOFOOOFO. &SP 






andi . 1 




•SC00F000F. &LV 






or . 1 




&SF.&UV 


; uv==socuvoouv 


• 


swap 




&UV 






encrr. 










macro 








• 


i / 




r V r *\Jn f / TV/ f nft £Rl 






move . 1 




iY.&DO 


. uu*ivii 




lsl.l 




•3,4D0 


; d0=Y0XXYlXX 




move . b 






; dCYOXXYlUV 




ajidi .w 




PS3FFF. &D0 


; dOrOYUV(l) 




move . 1 




UIND.&DO .W4J.&D1 


; find clue entries 




swap 




&D0 


; d0»Y0XX 




move . b 




&UV. iDO 


; dOsYOUV 




andi . w 




•53FFF. ADO 


; dOsOYUV(O) 


* 


roove • 1 




UIND.iDO .W4),4D0 


; find clue entries 












OUT 8 
• 


FUNC 


EXPORT 




pe. 






8 




C ID1V 


U5 * L> 




1 




pixroap 


US • Li 




1 




v 

T 


ne r 
US . L 




1 






US * L 




1 




V 


. L< 




1 




■ lubn 






1 




height 


DS.L 




1 




rowByte 


DS.L 




1 










1 




• 


DOT* 








r c 


RECORD 




O.DECK 




Yl 


DS.L 




1 ; siseot l«hort» # Yrov • 2 # width 


U.ex 


DS.L 




1 ; x end address » U*U_ix 


tl an 


DS.L 




1 ; y end address » U*width*height>> 


"1 \ w 


DS.L 




1 ; siseci l short ) •ITVrow » width 


V v/ 

I Mi y 


DS.L 




1 ; sizeof nhort ) *Yrov ■ 2*width 




DS.L 




1 ; i^rowsyces-sizeof (long) "Prow = 2 # rovBytes-vidth 








• 






ENDR 








• 
• 


aO - Y, 


al 


- U. a2 - V, a3 - pixmap. 


a4 * table. a3 - pixmap2 


• 
* 


dO - rgbOO. 


dl - rgbOl, d2 - rgblO.. 


d3 - rgbll, 64 - spare, d6 * oldO, d? 




link 




&€, ILS.LSize 


; inc. width, fend and rowend are Iocs 


• 


mcvem. X 




d4-d7/aJ-a5.-(a7) 


? store registers 




move.l 




PS.YIA6) .AO 


; Y»YC 




move . 1 




PS.0<a6).al 


; U«Oc 




move . X 




PS.VU6) ,*2 


; VaVC 




move.l 




PS. pixmap <a€) . a3 


; pn*pixnap 




move. 1 




PS.tab3el»6>.a4 


; t abr table 




adda.l 




•S00020000.A4 


; t*i>»*3276e (longs) 




move. 1 




PS.pix3aap2 (a6) . *5 


; pn2»pixmap2 




move. 1 




PS. width fa6) .(30 


; LOAD width 
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9do_y 
fldo_x 



move . 1 
move. 1 

mulu. w 

lsr.l 

add.l 

move. 1 

move. 1 
add. I 
sub.i 

move. 1 

add.! 
move. 1 
move. 1 

move. 1 
move. 1 

move. I 
add.l 

CETUV 

CETY 
CETY 

move . w 

Isl.l 

move.w 

svap 

1*1.1 

swap 

GCTY 

move.w 

lar.l 

move, v 

CETY 

move.w 

swap 

lsr.l 

move . w 

move . 1 
move . 1 

cmpe. 1 
blew 

add.l 
add.l 

cnpa.l 
blt.w 

mcvea.l 

unlk 

rta 

ENDTORC 



dO.LS.U_ix<a6) 
^ PS.heighcta6) ,dl 
dO.dl 
• l.dl 
ai.dl 

dl.LS.0_ey<a6) 
PS.rovBy*e(a6) .dl 
dl.dl 
dO.dl 

dl. LS. P_yia6) 
dO.dO 

dO. LS. Yl (a6) 
dO.LS.Y_y<a6> 

PS.rowByte(a6) ,d5 
LS.Yl(a6).d6 

LS.U_ix(a6) ,d? 
al,d7 

al.e2.d0.dt 

(aO.dCw) .a4.d4.d2.d3 
(a0>*,a4.d4.dO.dl 

d3.d2 
*8.d2 
dO.dl 
dl 

96'. dl 
d4 

<«0.d€.l).a4.d4,d0.d3 
d3.d0 

• 8.d0 
d0.d2 

<aON,a4,d4.d0.d3 
d0.d3 
d3 

• 8.d3 
dJ.dl . 

d2, <e3.d5> 
dl. (a3)* 

d7.al 
9do_x 

LS.Y.jMe6).aO 
LS.P_y<ae).a3 

LS.U_ey<a6).el 
8do_y 

(a7)*,d4-d7/*3-e5 
a* 

; recurs 



SAVE D.ix" 

LOAD height 
vidch # heicht 
vidth # heichc/2 
U*width»height/2 

SAVE U.ey 

LCAB rowBytes 
rovBvtes # 2 
rcwByte«*2 -width 

SAVE P_y 

width*2 
SAVE Yl 
SAVE Y_y 

load rovByces 
load Yrow 

LOAD CLixB 
P^U.ixB 



; d2sX0XX. dJ=XXlX 
; dCUXXXO, dl.lXXX 

; d2*X01X 
; d2«01XX 
; dl.lXXO 
; dl-XOlX 
; dl.OlXX 

; next UV 

; dO«X2XX, d3=XX3X 

; dO.X23X 

; dO»XX23 

; d2»0123- 

; dO»XXX2. d3r3xXX 

I d3*3XX3 

: d3=X23X 

; d3=XX23 

; dl«C123 



restore registers 
reaiove locals 



macro 

Y8x2 



&AY.aZNS.4DV.«old 



CMDCTiTinx cucrr /Din c tc\ 
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move . 1 


iAY.dO 


lsl.I 


• 3. dO 


swap 


dO 


add ■ w 


dO told 


1 s r w 


•1 told 


move . c 


l rv told 


A ftd i w 
O J IU A - w 




mo ✓ g . i 


[ii.NO.tClG .w*4), 


move . w 


CD . tC lC 


move . b 


4UV , CO 


andi . w 


*$2TTT . cO 


move . 1 


ItXND.dO .w»4 ) , d2 


move . w 


dl.d3 


move . v 


d2.dl 


move . w 


d3,d2 


swap 


d2 


lsl.I 


»8.dl 


lsl.I 


• 8.d2 


swap 


dO 


add. w 


dO.told 


lsr .w 


#1.4old 


move . b 


tuv, told 


andi . w 


•S3FFF. told 


move . 1 


(tIND.iold .w«4). 


move . w 


dO.told 


move .b 


tUV.dO 


andi • w 


•SiFFr , dO 


move . 2 


(&XTID.dO.W4) .dO 


move .v 


dO.dl 


move. w 


Cl3.d0 


move. w 


dl.dJ 


swap 


dO 


lsr.1 


• 6,d0 


lsr.l 


#8.d3 


move. w 


d0,d2 


move. w 


d3,dl 


endra 




macro 




Y8x2a 


LAY, tIND. tUV 


GETY 


&AY. *TND. *Uv, dl . OU 


move . 1 


&AY.d2 




• 3 , d2 


move . b 


&UV.d2 


andi . w 


»S3FFF.d2 


move. 1 


(&XND, d2 .w*4 ) ,dl 


swap 


d2 


move.b 


&UV.d2 


andi. w 


#S3FTT,d2 


move . 1 


(&IND.d2.W4) ,d2 


move.w 


dl.dO 


move, w 


d2.dl 


move.w 


d0.d2 


swap 


dl 


endm 




macro 




Y8x2b 


4AY.tIXC.tOV 


GETY 


4AY.tTKD.tDV. dl,d2 
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; i"2») YsYOYl 

; (4) Y.Y0XXY1XX 

: (4) YrYlXXYOXX 

; (2) oldidd^YO 

• (4) old=(cid«>Y0)/2 

; (2) cld=YI0UV 

; 14) Old=0YUV(I0) 

; 12* > dl=XlX3 

; (2) old«Y0 

; (2) Y=Y0OV 

; 14) Y=0YUV(0) 

; (2*) d2»0X2X 

; 12) cxg.w dl.d2 

; (2) dlsX12X 

; (2) d2=0XX3 

; (4) d2=X30X 

; (4) dl*12XX 

; (4) d2?30XX 

; <4) Y=Y1XX 

; (2) old«old*Yl 

; (4) old«(old*Yl)/2 

; (2) cldsYIlUV 

; (4) oldaOYUVtll) 

; (2*) d2*XlX3 

; (2) olds'rl 

; (2) Y«Y0UV 

; (4) Y«0YW<0> 

; (2* J d0*0X2X 

; i2) exg.w dO.dJ 

; <2) i10»0XX3 

; (2) d3-Xl2X 

; (4) dO»X30X 

; (4) dO«XX30 

; <4) d3*X12X 

; (2) d2»3030 (YiYOYiYl) (1) 
; (2) CUtr2121 (YiYOYiYl ) (2) 



: (2*> YbYOYI 

; (4) YcYOXXYlXX 

; (21 Y=YIUV 

: 14) Y-0YWIY1) 

; (2*) dl»0123 (YD 

; 14) YsfOXX 

; 12) Y-YOOV 

; 14) YsCYUV(YO) 

; (2+) d2«0123 (YO) 

; (2) exg.w d2.dl 

; (2) dl-0123 (Y1Y0) 

; (2) d2*0123 (Y0Y1) 

; (4) daa2301 (Y0Y1) 
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JL A V i^l 


•" 


( 2* 


> YaYOYl 




*1 HO 
* J . G-t 


•* 


i 4 ) 


YaYOXXYlXX 




4UV, 


■ 


(2) 


Y=Y1UV 


andi.v 


•S3FFF.*2 






Y a fi YITV /VI 1 


move. 1 


(&2ND,d2.v«<) .dl 




:2* 


) dl.0123 <Y1) 


swap 


d2 




(4»- 


YrYOXX 


move . b 


4W.d2 




(2) 


YsYOtJV 


andi . w 


•S3FFF, d2 




(4) 


Y=0YUV(Y0) 


move . 1 


(4IND.d2.w4) .d2 




(2* 


) d2=0123 (Y0> 


ror . 1 


#8,d2 


* 


(61 


d2s3012 (YO) 


xor .1 






(6) 


dX=30X2 (YD 


mcve.%* 


dX.dO 


! 


£2) 


exg.v d2.dX 


move . w 


d2.dX 


* 


(2) 


dX=30X2 (YXYO) 


mcve.v 


d0.d2 


* 


(2) 


d2»30X2 <Y0YX) 


swap 


dl 


* 


(4) 


di=X230 (Y0Y1) 


ror .w 


• B.dl 


* 


(6) 


dX-X203 (YOYX) 


endm 











ODT8x2 
> 


FUNC 


EXPORT 


?S 


RECORD 


e 


tahie 


DS.L 


1 


pixmap 


DS.L 


1 


Y 


DS.L 


X 


U 


DS.L 


1 


V 


DS.L 


1 . 


width 


DS.L 


1 


height 


DS.L 


1 


rowByce 


DS.L 


1 


pixraap2 


DS.L 


1 


* 


ENDR 




IS 


RECORD 


O.DECR 


YX 


DS.L 


X 


U_ex 


DS.L 


X 


U.ey 


DS.L 


X 


U_ix 


DS.L 


X 




DS.L 


X 


P_y 


DS.L 


X 


LSize 


EQO 


• 


• 








aO - Y. 


aX - O f *2 



; ai ieof < short ) •Yrow 

; x end address 

; y end address 

; sizeof (thort ) •UVrov 

; sizeof (short ) •Yrow 

; 4*rowBytes-si2eox < Xong J *Frow 



■ 2«width 

» U*width*height» 

■ width 

« 2* width 

o 4«rowBytei-width 



dO - rgbOO, dX - rgbOX, d2 - rgbXO. d3 - rgbXX. d4 - spare, dS - oXdO. 61 



link 


a€,«LS.LSiie 


* 


inc. width, tend i 


movem.X 


d4-d7/a3-a5,-U7] 




store registers 


move. X 


PS.Y(a6),aO 


i 


YaYC 


move. X 


FS.0U6).aX 


1 


U«OC 


move.X 


FS.V<a6),a2 


* 


V.VC 


move.X 


PS. pixaap ( a6 ) .a3 


• 


pmopixmap 


move.X 


FS.tabXe(e6) ,a4 


i 


cah>tahXe 


adda.X 


•S00020000,«4 


i 


t&*»»32768 (longs) 


move. X 


PS.pl»sp2<a6) ,a5 


; 


pm2«pixmap2 


move.X 


PS.widthU6),dO 




LOAD width 


move.X 


dO.LS.o.ixlaO 




SAVE U_ix 


move.X 


PS.heignt la6),dX 




LOAD height 


muXu.v 


dO.dl 




width'height 


Xsr.X 


• X.dl 




width"height/2 
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add. 1 


al.dl 


move . 1 


^1 . LS. V ev f afi) 


add.l 


dO.dO 


move . 1 


dO.LS.YKa6) 


mc* v q . * 




mcve . x 




add.l 


dl.dl 


add. 1 


dl.dl 


sub. 1 


dO.dl 


xeve . 1 


dl.LS.P.y(a6) 


move . 1 


FS.rowByte(a6) .d5 


cir.l 


d6 


cir.l 


d7 


move. 1 


LS.U_ix<a6>,dO 


add.l 


al.dO 


move. 1 


dO.LS.U_exia6) 


GET LA/ 


al.a2.d0.d4 


Y6x2a 


iaO) ,a4.d4; .d« 


move . 1 


d2. (a3> 


a At* 1 

aao. i 


us, a j 


move . 1 


dl. <a3> 


add.l 


d5.*3 


move . 1 


LS.Y1 (a6) ,d0 


Y8x2b 


i aO.dO.w) , 64.64: .d? 


move. 1 


d2. (aJ) 


add.l 


d5.a3 


move . 1 


dl. (a3)« 




dl 


acdQ.l 


• 4.a0 


move . 1 


LS.Y1 (a6) ,d0 


Y6x2b 


<a0,d0.v) .a4.d4; ,d7 


move . i 


dl. <a3) 


3U0.1 


d5,a3 


move . 1 


d2. (a3l 


sub. 1 


d5, a3 


Y8x2a 


Ia0)-.a4.d4; ,d« 


move . 1 


dl. (a3 ) 


sub. 1 


dS.a3 


move . 1 


d2. (a3)* 


enpa. 1 


LS.U_ex ia6) ,al 


blc .v 


Odo.x 


add.l 


LS.Y_y<a6),aO 


add.l 


LS.P_y<a€).a3 


cmpa. 1 


LS.CLey<e6),al 


bit.w 


0do_y 


movem. 1 


(a7)*.d4-d7/a3-a5 


unlk 


a6 


res 


; return 


ENDFUHC 
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u*widtfc*hei9ht/2 
SAVE U.ey 

widch # 2 
SAVE Yl 
SAVT Y_y 
LCAD rcwBytea 

rowByces *2 

rowByces - 4 

rowBycea '4 -width" 2 
SAVE P_y 

load rowByces 



; LOAD U.ixB 

P*U_ixB 
; SAVE U.exB 

; dlsOOUVOOUV (10) 

; calc d2.dl pixels 



; load Yrov 

; calc d2,dl pixels 



; next W 
; next Ys 

: load Yrov 

; calc d2,dl pixels 



; restore reyisters 

; remove locals 
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1 ao v * w 




• 


PGB2Y 






mrvt 1 


r PCS 




perl 1 


• S 80P flfif 










rr.cvc . s 


G-t , 01 




ITiOVc - - 








HA t TT 




swap 


00 




move . w 


00, 4Y 




ext . w 


Ol 




aoa. w 


01, Ql 




add. w 


dl, tV 




Isr. 1 


• 6 , d2 




clr.w 






move . b 


G2.C1 




move . 1 


<a4.dl.v 




sub. w 


d0.4U 




swap 


dO 




sub. w 


dO.aY 




move . 1 


4 (a4,dl.i 




sub. w 


dO,4V 




swap 


dO 




sub. v 


dO.fcY 




ext . w 


dl 




sub. w 






sub. w 


dl,*v 




lsl.w 


»2.dl 




add.w 


dl.ty 




lsr.l 


• 6.d2 




move. 1 






sub.w 


dO ,4V 




swap 


dO 




add.v 


dO.aY 




«t.w 


d2 




odd.w 


d2,d2 




add.w 


(12,40 




cn^i .w 


•SFE40. iY 




bge.s 


«ok 




move . w 


♦SFB40,*Y 




bra . s 


Gend 




cmpi . w 


•S01C0.4Y 




bit. a 


eend 




move . w 


•SOlCO.aY 


<?end 


move . w 


&Y, 4AY 




endm 




IN J 2 
• 


FUNC 


EXPORT 


PS 


RECORD 


e 


table 


DS.L 


i 


pixaap 


DS.L 


i 


Y 


DS.L 


i 


0 


DS.L 


i 


V 


DS.L 


i 


width 


DS.L 


i 


height 


DS.L 


i 


rowByte 


DS.L 


i 


* 


EOT* 




LS 


RECORD 


O.DECft 



*8) ,dO 



pixei= 'pixmap 

pixel*=0x808080 

B=0 

Erpixel [3] 
dG=by, bu 
U-«bu 
dO»bu. by 
Y=by 
C short )B 
B*.2 
V*«B«1 

pixel>>»8 
G-0 

C pixel [3] 
dO»gry, gv 
U-agv 
dCUgv, gry 
Y-«gry 
dO=gby r gu 
V-=gv 
dO=g-u, gby 
Y-.gby 
i short )G 
U-»g 
V-.g 

Q«m2 
Y*»B«1 

pixel>>»0 
dO»ry,rv 
V— rv 
dO«rv.ry 
Yo»ry 
( abort )R 

0V»R«2 
Y>»-448 
if greater 
Y« -448 
save 

Y< 440 
it leas 
Ya 443 
Save Y 
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DS.L 




1 ; s.zezz (short ) *Yrow = 2*vidth 


U_ex 


DS.L 




1 ; x end address * U*U.ix 


J.ey 


OS. 1 




1 ; y end address = U*w;dth # heighc>> 


J *. X 


DS. - 




1 • •* i^hnrr 1 'IR/r hui - w i dt ^ 


v v 


DS.L 




1 «^ Tpnf 1 thrrf ) 'V* nu 2 / • w* df h 


P V 


DS. L 




1 y • r ruPv p p< .e < * or * t 1ft n el • Pr n\j 2 5 • rcwfivt #*-wi/*?h 


* ? ■ ? • 


EOU 




• 




D!DR 








aO - 


Y. al - 


■ U. a2 - V, a3 - pixnap. a4 - cable. a5 - pixmap2 


« 
• 


dO - 


rgbOO. 


dl - rgfcOl. d2 - rgblO, d3 - rgbll. d4 - spare. d6 - oldO. d7 




linJc 




a6,#LS.LSize ; inc,' width, fend and rovend are loca 


• 


movent. 1 


d4-d7/a3-a5. - (a7) ; store registers 




move . 


1 


PS.Y(a6).aO ; YsYc 




move . 


1 


PS.0(a6).al ; U«Uc 




move . 


1 


PS.V(a6).a2 ; v=v c 




move . 


1 


PS.pix?nep<a6) . a3 ; pmapixmap 




move . 


1 


PS. table ( 06 ) , a4 ; cab= cable 



move.l PS. width (a6).d0 

move.l dO.LS.U_ix<a6) 

mcve.l PS. height Ia5) ,dl 

mulu.w dO.dl 

lsr.l «l.dl 

add.l al.dl 

move.l dl.LS.U_ey(a6) 

add.l (30. dO 

move.l dO.LS.Yl(a6> 

move.l dO.L5.Y_yta6> 

add.l dO.dO 

move. 1 FS.rowByte (a6) .dl 

add.l dl.dl 

sub.l dO.dl 

move.l dl.LS.P_yia6r ' 

move.l PS. rowByte <a6) ,d7 

move.l L£.Yl(a6).d6 



LOAD width 

SAVE U_ix 

LOAD height 
width*neight 
width*height/2 
U*width»height/2 

SAVE I'.cy 
wid:M2 

SAVE Yl 
SAVE Y_y 

widtfaM 
LOAD rowBytes 

rovBytea - 2 

rovsytea # 2-width # 4 
SAVE P_y 

load rowBytes 
load Yl 



3do_y 



edo.x 



SokU 



move. 1 


LS.U_ixla«).dO 




LOAD U.ixB 




add.l 


al.dO 




P^O.ixB 




move. 1 


dO,LS.U_ex(e€) 


» 


SAVE U.exB 




clr.w 


d4 




O-O 




clr.w 


d3 




VeO 




RCB2Y 


(&3.d?.w),d3.d4.d5, (aC,d6 


.w>; Convert 


pixel 


RCB2Y 


<aJ)*,d3,d4.d5. la0>* 




; Convert 


pixel 


RGB2Y 


<a3,d7.w).d3.d4.d5. (a0,d€ 


.w); Convert 


pixel 


RCB2Y 


(a3)*.d3.d4,d5, <a0> + 




; Coavert 


pixel 


asr .v 


#2.d4 


» 


0>>«2 




asr .w 


• 2,d5 




V»«2 




copi.w 


*srE40.di 




U>»-448 




bge.s 


• oXU 




if greater 




move .w 


vsrE40.de 


* 


Us -446 




bra. a 


«doV 


* 


save 




crapi.w 


tS01C0.d4 


* 


U* 448 




blc.i 


edov 


* 


if lees 




move .w 


#S01C0,d4 


* 


U« 448 





cuocTtTirrr cucrrr rpiw c on 
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?dcv 



3o*V 



cnqpi. w 
bge.s 
move . v 
bra.s 

cxpi . w 
blc.s 
move . w 



•SFl40.d5 
9okV 

•$FE40.d5 
Send 

• SOiCCd* 
5 end 

•SOlCO.d! 



V>a-448 

if greater 
V= -448 
save 
V< 448 
if less 

Vr 448 



5 end 



nove . w 
move . w 



44, (all* 
d5, <a2)* 



Save U 
Save v 



cmpa. 1 
bit .v 


L£.U_ex(a6),al 




add.l 
add. 1 


LS.Y_y<a6).aO 
LS.P_y (a6) ,a3 




crapa . 1 
bit.* 


LS.U.ey <a6) ,ai 
«do_y 




movem. 1 

unlk 

rts 


(a7)*.d4-d7/a3-a5 
a6 

; return 


; restore registers 
; renove locals 


ENDFUKC 






macro 
UV16 


4A0. 4AV, 4SP. 4UV 




move. 1 
move. 1 
UVOVER 
Isr.l 
andi.i 
andi. 1 
or.l 
swap 


(4AUU.4SP 

(4AVN.40V 
4SP,4UV 
• 5.4W 

•SO3eO03e0.4SP 

•$ooirooir.4uv 

4SP.4W 
4UV 


; UV».«00UV00UV 


ends 







macro 
Y16x2 



4AY,4IND,4DV 



move.l tAY.d2 

lsl.1 !»3.a2 

andi.l *$PCOOFC00. d2 

or.w 4W.d2 

move.l <4IND.d2.v*4) # dl 

svap d2 

or.w 4W,d2 

move.l (4DJD,d2.tr*4>.d2 



(2*) Ys-YOYl 
14) Yc^OXXYlXX 

12) Y»Y1UV 

(2*) dl»0123 (YD 

(4) Y-YOXX 

(2) Y«YOUV 

<2*) d2«0123 (YO) 



enda 



OOT16x2 FGNC EXPORT 
• 

PS RECORD 8 

cable DS.L 1 

pixmap DS.L 1 

Y DS.L 1 
'J DS.L 1 

V DS.L 1 
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width DS.L 
height DS.L 
rcwByte DS-L 
pixrvapl DS.L 
£NDR 



LS 

VI 

U.ex 

*J_ey 

U.ix 

Y_y 

P_y 

LSize 



0do_y 



9do_x 



rXCCRD 
D5 . L 
OS . L 
OS .L 
DS . L 
OS .L 
OS.L 
EOU 
END* 



r 

i 
i 
i 



0 . DECK 

1 
1 
1 



sizeof (short) *Yrow 

x end address 

y end address 

sireof ( snort) # UVrow 

sizeof ( short ) *Yrow 

4 *rovBytes-si2eof f leng) # Prow 



2 • width 
U*U_ix 

U*width*height>> 

width 

2*width 

4»rowByces-width 



aO - Y. al - U. a2 - V, a} - pixmap, a4 - table. aS - pixc*ap2 

dO - rgbOO. dl - rgbOl. c2 - rgblO. d3 - rffbll, d4 - spare. d6 - oldO, d"? 



link 


a€. ILS.LSixe 


; inc. width, fend and 


movem. 1 


d4-d7/a3-a$.-(a7) 


; store registers 


move . 1 


PS.Y(a6) ,a0 


; YsYC 


move . X 


PS.U (aft) ,al 


; U«UC 


move . 1 


PS.V(a6) ,a2 


; V»Vc 


move . 1 


FS.pixmap <a6 ) . a3 


; pmspixnap 


move . 1 


PS.te±ile<a6) ,e4 


; c abatable 


adda.l 


*S00020000,a< 


; t*b**32?68 (longs) 


move.l 


FS.pixnapi <a6) .aS 


; pm2apixvtap2 


move. 1 


FS.width(a€) ,d0 


; LOAD width 


move.l 


dO.LS.U_i*<«6) 


; SAVX U_ix 


move. 1 


PS. height (a6) .dl 


; LOAD height 


mulu.w 


dO,dl 


; width* height 


lsr.1 


• l.dl 


; widtb*height/2 


add.l 


al.dl 


; U*widtb*height/2 


move. 1 


dl,LS.U_eyla6) 


; SAVX O.ey 


add.l . 


dO,dO 


; vidtb*2 


move . 1 


dO,LS.Yl (£6) 


; SAVE ri 


move. 1 


dO.LS.Y_y ufi) 


; SAVE Y_y 


add.l 


dO.dO 


width* 4 


move . 1 


PS.rovByte(a6),dl 


; LOAD rowBytes 


add.l 


dl.dl 


; rowBytes *2 


add.l 


dl.dl 


rowBytcs*4 


sub.l 


dO.dl 


rovBytes*4 -width *4 


move . 1 


dl.LS.P_y<e6) 


; SAVE F_y 


move . 1 


PS.rowBytela6).d5 


; load rov Bytes 


cir.l 


d6 




elr.l 


d7 




move . 1 


LS.U_ixta«) .d0 


; LOAD U.ixfi 


add.l 


al.dO 




move. 1 


dO.LS.O_ex(a6l 


; SAVE U.exfi 


GETOV 


el.a2.d0.d4 


; d4«00UV00UV (10) 


GETY 


Ia0).a4.d4.dl.d2 


; calc d2 , dl pixel 


move.l 


d2. (A3)* 




move.l 


dl, (a3) 




add.l 


d5.a3 




swap 


dl 




move. 1 


dl. f«3> 
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swap 


dA> 


T«CV# . 1 


a* « ( a j ) 


act. 1 


d5.a3 


fr-ove . 1 


LS.YKa6),dO 


GETY 


laO. dO .w) , a4. d4. dl.d2 


move . 1 


d2. ;a3u 


rrcve . 1 


dl . ia3l 


add.l 


dS.al 


swap 


dl 


**nove . 1 


dl. la3) 


5wap 


cU 


move • 1 


d2. - <a3J 




d4 


addg.l 


M,aO 


add.l 


#12, a3 




re yi t a£ i dO 

toJ i i 1 IOC 1 « uv 


GETY 


{ aQ rifl w 1 Ad Hd HI /O 






move . l 


./alt 


sub. l 


a5, a3 


•swap 


02 


move . 1 


62 , ( a3 ) ♦ 


swap 


dl 


move. 1 


dl. <a3) 


sub.l 


d3,a3 


GETY 


CaOU.a4.d4.dl.d2 


move . 1 


dl. (a3> 


move .1 


d2,-<a3) 


swap 


d2 


sub.l 


dS.a3 


move.l 


d2. 1*3)* 


swap 


dl 


move .1 


dl. U3 > + 


cnpa.l 


LS.O.ex(a«) ,al 


bit .w 




add.l 


LS.Y_y ia6) ,aO 


add.l 


LS. P_y (ati ) . a3 


cmpa.l 


LS.U_ey<a6).al 


bit .w 


«do_y 


movem. 1 


(a7)*.d4-d?/a3-a5 


unlk 


a6 


rts 


; return 


ENDTUKC 




macro 




Y16 


tAY, &JHD.4UV 


move, 1 


fcAY,d2 


1*1.1 


• S.d2 


andi.l 


•spcoorcoo.ds 


or .w 


tOV.d2 


move.l 


UIND.d2.V4>,dl 


swap 


d2 




40V. d2 



load Yrow 

calc 62.61 pixels 



next UV 
next 7* 



; load Yrow 

; calc d2.dl pixels 



restore registers 
remove locals 



(2*) Y.Y0Y1 
141 YsYOXXYlXX 

(2) Y.Y10V 
(2*) dl«Yl 
(4) Y-YOXX 
12! Y*Y0t7V 



ci tpcrm nr cucrr /di nnn 
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move . - 
move . w 

enOm 
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dl.d2 



; (2- J d2--Y0 
; t2: d2=Y0Yl 



CUT 1 6 
• 


FVNC 


EXPORT 


?S 




8 


carle 


DS.L 


1 


pixmap 


DS.L 


1 


Y 


DS.L 


1 


r J 


DS.L 


1 


V 


DS.L 


1 


width 


C-S.L 


1 


height 


DS.L 




rcwByte 


DS.L 


1 


?ixmap2 


DS.L 


1 


• 


ENDR 




LS 


RECORD 


0 , DECK 


Yl 


DS.L 




U.ex 


DS.L 




U.ey 


DS.L 




U.ix 


DS.L 




Y_>' 


DS.L 






DS.L 


1 


LSire 


sou 


• 




EMDR 





sxxeof (shore) "Yrow 
x end address 
y end address 
sizeof (short ) *UVr&w 
aireof (short ) •Yrow 
2TowBytes-sixeof (long) 



Prow 



= 2 'width 
« U*u_ix 

■ U*width*height>> 

« width 

= 2 -width 

• 2*rowdytes-width 



aO - Y. al 
dO - rgbOO, 



$do_y 



- U, a2 - v, a3 - pixmap. *4 - table. a5 - pi»nap2 
dl - rgbOl. d2 - rgblO, d3 - rgbii. d4 - spare. d6 - oldO. d7 

; inc. width, fend and rowend are loca 
; store registers 

; Y*Yc 
; UsOc 
; V.vc 

puis pixmap 
; tabs table 
; tab**327€S (longs) 
; pm2spixmap2 

; LOAD width 
; SAVE U.1X 
; LOAD height 

width^height 
; width*height/2 
; U-»width*height/^ 
; SAVE O.ey 
; width* 2 
; SAVE Yl 
; SAVE Y_y 
; LOAD rowBytes 
rowBytea*2 
rowBytes* 2 -width* 2 
; SAVE P_y 

; load rowBytes 



LOAD U.ixB 



link 


ac\«LS.LSi2e 


movem. 1 


d4-d7/a3-a5.-(a7) 


move. 1 


PS.YIa6>.aO 


move . 1 


PS.U(a6).al 


move. 1 


PS.V(*6).&2 


move. X 


PS.pixmap(a6) ,a3 


move. 1 


PS. table<a6) ,a4 


adda.l 


•S0002G0OO.a4 


move . 1 


?S.pixmtp2 <a6> ,aS 


move . 1 


PS. width t a 6 ) .dO 


move. 1 


dO.LS.U_ix<a6) 


move . 1 


PS. height <a6>.dl 


mulu.w 


dO.dl 


lsr.l 


♦ l.dl 


add. 1 


al.dl 


move. 1 


dl.LS.O_eyia€> 


add.l 


dO.dO 


move. 1 


dO.LS.Yl(a6) 


move. 1 


dO.LS.Y_y(a«) 


move.l 


PS.rowBytn(a6) .dl 


add.l 


dl.dl 


sub.l 


dO.dl 


move.l 


dl.LS.?_y(a€) 


move.l 


PS.rowByteta6) ,d5 


clr.l 


d6 


clr.l 


d7 


move. 1 


LS.U_ix<a6 ) .dO 
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add.l 
wve.l 


ai.do 

dO. LS.U_«x<a6) 


F*U.ixB 
; SAVE U.exfi 


3ETUV 


al, a2. d0.d4 


; d4=OOUV0CUV :iO> 


3ETY 
Tiove . w 
twvc . X 
add.: 


( aO ) a4 d4 di d? 

dl,d2 

d2. ia3) 

dS.a3 


wait ua ( G1 pixe* 


move . 1 

move.v 
move. 1 


L5.Y2 (a6) .dO 

* au . Cv . w ) , d4 , 04 , dl . 02 

dl,d2 

d2. (a3>* 


; load Yrow 

; calc d2.dl pixels 


swap 

addQ.l 


*4,a0 


; oexc UV 
; next Ys 


move . 1 
GETY 
move. w 
move . 1 
sub.l 


LS.Y1 (a6) ,dO 

(a0.d0.w).a4,d4,dl.d: 

dl.d2 

d2. (a3) 

d5.a3 


; load Yrow 

; calc d2,dl pixels 


GETY 
move .w 
move.l 


fa0)*.a4,d4.dl.d2 

dl.ctt 

d2, <a3)* 




cmpa . 1 

blew 


LS.U_#x<a6),al 
«do_x 




add. 1 
add.l 


LS.Y^y(a6J , aO 
LS.P_y ia6l ,a3 




crrpa.l 
blew 


LS.0_ey(a6),al 
Sdo_y 




movera. 1- 

unlk 

res 


(a7)*,d4-d7/aJ-a5 
a€ 


; restore registers 
; remove locals 
; return 


dtofunc 






END 
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© CsT/righc 1953 KLICS Limited 
Ail rights reserved. 

written by: Adrian Lewis 



66000 Fast RGB/YUV code 



include 'Traps. a' 
machine nc68030 



macro 

RCB2Y iApixel.iAY 

dO - pixel/x. dl - c/2g*r. d2 - b. d3 - Y 



move . 1 


iApixel.dO 




pixel* # Apixel 


eor.l 


PS0O80808O.dO 




signed pixels 


ff.cvt . b 


d0,d2 




b.pixsl[3) 


ext .w 


d2 




b is 8(16) bit 


move . v 


dO,dl 




9*pixeir2] 


asr. v 


*T.dl 


• 


2g is 9(16) bit 


swap 


dO 




r=pixel( 1] 


•Xt -W 


dO 




r is 8(16) bit 


move.w 


d2.d3 


4 
* 


Y>b 


lfll.w 


• 3.d3 




Y<<»3 


sub. v 


d2.d3 


* 
» 


Y—b 


add.w 


dO.dl 




2g*«r 


add.w 


dl.d3 


* 

t 


Y*»2g*r 


add.w 


dl.d3 




Y*a2g+r 


add.w 


dl,d3 


• 


Y*s2g*r 


asr .w 


%4.d3 


* 


Y>>»4 


add.w 


dl.d3 




Y*»2g*r 


move.w 


62. LAY 


* 
> 


AY.Y is 10(16) bit 



endm 



macro 

RCB20V &A*J.iAV 



dO - r. 


d2 - b. d3 


- Y. dl - O/V 




add.w 


d0,d0 


; r is 9(16) 


bit 


add.w 


d2.d2 


/ b is 9(16) 


bit 


asr.v 


tl,d3 


; Y is 9(16) 


bit 


move.w 


d2.dl 


; U=b 




aub.w 


d3.dl 


; Unb-Y 




move.w 


dl.tAO 


; AO-U 




move.w 


dO.dl 


; v.r 




sub.w 


d3.di 


; Vcr-Y 




move.w 


dl.*AV 


; AV«V 





esda 
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if 4TY£J{ 'sec;' )* 'UNDEFINED* then 

9*9 4aeg 

•r.dif 



ROB2YUV2 



Gdo2 



6do3 



link 
mcvem . 1 



mcve . 1 

move. 1 

rnove . 1 

move . 1 

move. 1 

asl.l 

add.l 

move . 1 

asl.l 

move. 1 

asl.l 

sub.l 

move. 1 

add.l 

rgb2y 

rgb2uv 

rgb2y 

cmpa . 1 

blc. s 

addA.l 

stove. 1 

add.l 

rgb2y 

cmpa . 1 

blt.s 

addA.l 

Clip*. 1 

blew 



EXPORT 
a*. #0 

d4-d7/a3. -<a7: 

S0008 (a6> .a3 
S000C.'a6) .aO 
$0010(a6> .al 
50014 (a6l .a2 
S0018 (a6) .d? 
#2.d7 
a3.d7 

S001C<a6) ,d4 

• 2.d4 

$0020la6) .d5 

• 2.d3 
d4,d3 
a3,d6 
d4,d6 

(a3)*. (a0)+ 
(al)*, (a2)* 
<a3»*. <a0>* 
d€.a3 
«do2 
d3,a3 
a3.d6 
d4,d6 

<a3)*. (aO)* 

d6.*3 

«do3 

d5.*J 

d7,»3 

9dol 



; r.c local variables 
; sccre registers 

; pmspixraap 

; Y=YC 

; U*Oc 

; VsVc 

; fend a are a 

fend<<s2 
; fand-»spm 
; wldth_b=widCh 
- width_b<<»2 
1 incJb»coli 
cols«*2 
inc_b-rvidcfc_b 
rovendspre 

rowend* »vidthLb 

rgb2y(pm**. Y**» 

rgb2uv<u+*, v**) 

rgb2y<pro*»» f Y**) 

row«nd>pm 

while 

pm*»lnc_b 

rowendspm 

r ow*nd* » wi dth_b 

rgb2y (pm*+, Y*+ ) 

xovenOpm 

while 

pm*»inc_b 

f tnd>pm 

while - 



movero. 1 

unlk 

res 

QWTXJIK 


<a7)*,d4-d7/*3 
a6 


; rastore registers 
; remove locals* 
; return 


macro 






FETCKY 


4AY. 4Y. 4ft. 4G. LB 




move. 1 


4AY.4Y 


; Ye*AY*» 


add.l 


4Y.4R 


; WW*Y12 


add.l 


4Y.4C 


; GC-^-Yia 


add.l 


4Y.4B 


; BB*.Y12 


endm 







macro 




rixov 


4V, 4SF1. 4SF2 


move.w 


4V.4SF1 


clr.b 


4SF1 


andi.w 


#S3FIT,4SF1 


sne 


4SP1 


btic 


• 13.4SF1 


a»Q 


4SF2 



cnocTiTirrr cucrr /Din c ic\ 
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or .b 


&SF1. AV 


and. w 


&SP2.AV 


swap 


AV 


move . v 


AV, ASP! 


zlz.b 


ASP1 


andi . w 


•S3FFT.ASP1 


sne 


ASP1 


St St 


•13. A3P1 


3€Q 


ASF2 


or .b 


fcSPl. ffV 


and.w 


4SP2.&V 


swap 


4V 


endn 







macro 






• 




>Ai m.Ot gjrl, «3r< 




* 


mCV€ . 1 


•SFFOOFFOO, tSPl 


; splsmaak 


• 


move . 1 


AA. ASP2 


; 5p2sovov (A J 


• 


and.l 


ASF1. ASP2 


; Sp2so0o0 (A) 




Isr . 1 


•8 , ASF2 


; 3p2s0o0o (A) 


• 


and. 1 


AB. ASP1 


SDlaOOoO (B) 




or.l 


&SF2,&5P1 


: splaoooo (BAB 




move. 1 


&A. ASF1 




or.l 


AB,ASP1 




■ 


andi. 1 


•srroorroo. *spi 






beq.a 


(3 ok 


; if no over f la 




clr.w 


ASP2* 


; ANDsO 




FIXOV 


*A,ASP1..SP2 


• Al overflow 




nxov 


AB. 4SPI.&SP2 


Bl fivtr flow 


fioic 
» 










endjn 








macro 






• 


KKRCB 


AR, AG. AS. AARCB 






lsl.l 


#8. AG 


; G*GCC0 (12) 




or.l 


&B, AG 


; CsCBGB (12) 




move. 1 


&R.AB 


; B-OPOR (12) 




swap 


AB 


; BsOROR (21) 




move .v 


AG.AB 


; Be 0 RGB (2) 




swap 


tc 


; CGBGB (21) 




move . w 


fcG. AR 


; R»0RCB (1) 




move. i 


AR. AARGB 


: •RGB** » rob (1) 




move . 1 


SB, AARGB 


; •RGB**sxgfc (2) 




endm 








macro 






• 


DUPVAL 


AVO. AVI 






move .« 


AVO. AVI 


; vlsvO 




swap 


AVO 






mcve.v 


AVI. AVO 


; dup vO 


• 


roove.l 


AVO. AVI 


; dup vl 




endm 








macro 








UV2RCB3 


AAU.4AV 
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• 


dl - r« 


90. - fca. 


• 








move . w 


•512. d5 




r.ove . w 


iAU,d2 




add.w 


c2,d2 • 




r.ove . w 






add.w 


d3.d2 




add.w 


d3 d2 




*dd. w 


d5.d3 






d3 . d6 




aar . w 


*4.d2 




move . w 


&AV.dl 




add. w 


dl.d2 




add w 


dl dl 




add.w 


dS.dl 




DUPVXL 


dl d4 




sub.w 


d2.d5 


• 


DUPVAL 


CI. 42 




endn 






if &TYPE i 


* seg ' ) « ' UNDEFINED 




seg 


& sea 




endif 




Y*JV2RCB2 FUNC 
• 


EXPORT 


?S 


RECORD 


0 

w 


?i;anap 


DS.L 


1 


Y 


DS.L 


1 


U 


DS.L 


1 


V 


DS.L 


1 


area 


DS.L 


1 


width 


DS.L 


1 


cols 


DS.L 


1 


• 


ENDR 




LS 


RECORD 


0,DECR 


:ac 


DS.L 


1 


width 


DS.L 


1 


fend 


DS.L 


1 


count 


DS.L 


1 


LSize 


EOU 


• 


• 


ENDR 






aO - YO. al 


- VI. *2 - U. a3 


• 
* 


dC..6 * used. d7 * count 




Jink 


a6. •LS.LSixe 


• 


mcvan.l 


d4-d7/a3-a5,-<a7 




move. 1 


FS.pixmap(a6) , a4 




move . 1 


a4.a3 




move. 1 


FS.Y(a6),aO 




move • 1 


aO.al 




move.l 


FS.O(a6),a2 




move . 1 


PS.V(*6).a3 




move. 1 


PS. area (a6) ,d7 




lsl.l 


*2.d7 




add.! 


a4,d7 




move. 1 


d7.LS.fendla«) 




move. 1 


PS. width 1*6), 45 




move. 1 


d5.d7 



- rD. 15 - gfc/512. d6 - bb 

: d5-5l2 
; U=»AU— 

; 'J is 10(16) tits 

; bo=(J 

; ca.2U 

: ga*3U 

; ba*=512 

; ba=bb=BB 

; ca=3U>>4 
; Vs'AV** 
; ga**V 
; ra*>2 
; ra*«512 
; raarbsRJl 
; gb*512-o;a 
; ga»gb»GC 



then 



- V. a4 - pmO. aS - pml 



inc. width, fand and rovend are loca 
store registers 

pmO»pijcnap 
pnlspreO 
Y0»VC 
V1«V0 

v»vc 

fend*area 
fend«»2 
f «nd*»pm0 
saw fend 
width* width 
; countawidth 



SUBSTITUTE SHEFT fRULF ?tt 
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9ck 



Gover 



asr. 1 

£UOQ.l 

rsove . 1 

add.l 

add.l 

add.i 

move . I 

mcve . 1 

isl.l 

add.l 

add.l 

suo. 1 

move . 1 

UV2RG33 

TETCHY 

FETCHY 

move . w 

lsr.l 

and. w 

lsz. I 

and.w 

lsr.1 

and.w 

lsr.l 

and.w 

lsr.l 

and.w 

lsr. 1 

and.w 

move. 1 

or.l 

or. I 

or.l 

or.l 

or.l 

andi . 1 

bne, s 

HKKGB 

MXRGB 

dbf 

adda.l 

adda.l 

adda.l 

exg.l 

move. 1 

cmpa. 1 

blt.w 

mov«m. 1 

unlk 
rts 

move.l 
clr.w 

FIXOV 

FDCOV 

FIXOV 

FIXOV 

FIXOV 

FIXOV 

movt.l 

bra 



•l.d7 
M.d7 

d7. ?S.wid:h(a6) 

<25.d5 

dS.al 

d5.d5 

d5,is.wdth:a6> 

PS.colsia6) ,d4 

«2.d4 

d4.a5 

d4.d4 

d5.d4 

d4.LS.incia6) 
<a2)*, (a3). 

Ia0)*.d0.dl,d2.d3 
tal)*.dC.d4.d5.d6 
•S3FFT.dO 

• 2.dl 
dO.dl 

d0.d2 
#2.d3 
d0.d3 
♦2.d4 
d0.d4 

• 2.d5 
dO.dS 
*2.d6 
dO\d6 
dl.dO 
d2.d0 
d3.d0 
d4.d0 
d5.d0 
d6.d0 

♦SFroorroo.do 
$over 

dl.d2.d3, (a47- 
d4.d5.d6, la*)* 
d7 , «do 

LS. incfa6) ,a4 
L5.incia6) . «5 
LS.widthia6J.aO 
aO.al 

FS.widch(e6).d7 
LS.fend(a6) ,a4 
edo 

Ia7)*,d4-d7/a3-a5 
a6 

d7, LS. count (a6) . 
d7 

dl.d0.d7 
d2.d0.d7 
d3.d0.d7 
o4.d0.d7 
d3.d0.d7 
d6,d0.d7 

LS.ccunt ia6) ,d7 
Qok 



; count >>sl 
; ccunc-»l 
; save width 
; widch'=2 
; Yl^.width 
; widch*a2 
; save width 
; incecola 
; inc<<s2 
; pml*«mc 
; cols*s2 

; inc now 2»cols-vidth bytes 

; save inc 

; uv2rgb{ # 0>*. # v**) 

; add Ya to RGB values 

; add Yb co RGB values 

: dOemask 

dl 6(16) bics 

dl masked 

d2 8(16) bits 

d2 masked 

d3 8(16) bits 

d3 masked 

d4 8(16) bits 

d4 masked 

d5 8(16) bics 

dS masked 

d6 8(16) bics 

d6 masked 



; if overflow 
; save RGB* 
; save AGBb 
; while 
; pm0**inc 
; pml*«inc 
; Y0* -width 
; Y1<->Y0 
r count swidth 
■ pm0<fend 
while 

restore registers 
remove locals 
returr. 
save count 
AND&O 

A overflow 
B overflow 
A overflow 
B overflow 
A overflow 
B overflow 
restore count 
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QJDTUWC 



if tryPE( "aeg- Jj-ONDCTINED* then 
s«9 Sseg 



endif 
CRXY2Y "UMC 



PS 

?;xnap 
Y 

area 

widen 
cola 



RZCORD 

DS.w 

DS.L 

DS.L 

DS.L 

DS.L 

ENDR 



EXPORT 

8 
1 
1 
1 
1 
1 



dO - ww, dl 
«0 - pin. al - 

* 

link 
noven. 1 

move . 1 

mcvt . 1 

move.l 

add.l 

move.l 

move.l 

sub.l 

move.l 

Odol move.l 
add.l 

*do2 move . 1 
eor.l 
move.w 
asr.w 
swap 
move.b 
•xt .v 

Isl.w 

svap 

move. w 
asr.w 
swap 
mova.b 
ext .v 
lsl.v 
move. 1 
move. 1 
crnpa . 1 
bit. s 
adde.l 
cmpa.l 
bit. a 

movent. 1 

unlk 

res 

ENDPUMC 



- vOvl, d2 - v2v3, d3 
Y 

a€. 10 

d4-d7,-(a7) 

FS.pijcrap(a6) # a0 
PS.YIa6l .al 
PS. area (a6) ,d7 
a0.d7 

PS.v:dthU6) .d4 
PS . cola ( *6 ) ,d3 
d4.d5 

•S7nr7r7r.d3 

a0,d6 

d«.d6 

(aON.dO 

d3.d0 

d0.d2 

*6.d2 

<32 

d0,d2 
d2 

*2.d2 
dO 

dO.dl 

• 6.dl 
dl 

dO.dl 
dl 

• 2.dl 
dl. (al)* 
d2, (aiu 
d6,a0 
6do2 
dS.eO 
d7,a0 
edol 

Ia7]*,d4-d7 
a6 



- xor, d4 - width. d5 - inc. d6 - rowend, 

; no local variables 
; score registers 



pn»pixnap 
Y=YC 

f endsarea 

fend* spin 

width_b«vidth 

ine_b»cols 

incjb-«widchjb 

xor»S7r7F7P7r 

rowoadapn 

r owend* ewi d t h Jb 

ww«*pn 

ww ia signed 

d2»v2v3 

d2av2 (10 bits) 

d2«v2??-- 

d2rv2v3 

v3 extended 

d2rv2v3 (10 birs) 

d0»v0vl 

dlaVOvl 

dl«v0 (10 bits) 
dl.vO?? 

dlaVOvl 

vl extended 

dlevOvl (10 bits) 

•Y.dl 

•Ysd2 

rovend>pm 

while 

p»* ■ inc_b 

rend>pn 

while 

restore registers 
remove locals 
return 



it LTYVZi 'aeg* )* 'UNDEFINED' 
seg taeg 



then 



Ci in 
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end a : 




Y2CRTY 
• 


:'JKC 


EXPORT 


»S 


rSCOKD 


a 




DS.L 




Y 


DS.L 




r.eicn: 


DS.L 


1 


widen 


DS.L 


1 


cols 


DS.L 


1 


• 


ENDR 




cO- 


spare. 


dl - v43. 


aO 


- pm, al 


- Y 



- spare. d4 - width. d5 - inc. d6 - count, d 



9dol 
Odoi 



<?ok 



<?over 



link 


a6 , *0 


; no local variables 


mcvem. 1 


d4-d7 , - (a7 i 


; score registers 


move . 1 


PS. pixmap(a6 ) . aO 


; pm=pixmap 


move. 1 


PS. Y (a6) . al 


Y=yc 


move . 1 


PS height ia6) .d" 


; long height 


subq.1 


M.d7 


; height -al 


move . i 


PS.width(a6i .d4 


; long width 


move . 1 


PS.cols(a6i .d5 


; long inc=cols 


sub.I 


d4.d5 


; inc-»widch 




»2 . d4 


. "iot *i> > « * ireao * voiuesj 


subq.l 


«l.d4 


; width-«l 


TkOVG . 1 


d4 , d6' 




move . 1 


(al )♦ ,d0 


; d0=x4x3 


move. 1 


(al )*.dl 


; dl.xixl 


move. 1 


#soiFFOirr\d2 


; d2«Sll 


move . 1 


d2.d3 


; d3.511 


sub. 1 


d0.d2 


; unsigned d2 


sub.l 


dl.d3 


: unsigned d3 


lsr.l 


• 2,62 


lsr.l 


■2.d3 




move . 1 * 


d2.d0 




or.i 


d3.d0 




andi . 1 


•s3FOo:roo.do 




bne . s 


@over 


; if no overflow 


isl.w 


• 8.d3 


: d3.021O 


lsl.w 


• 8,d2 


: d2«0430 


1st ,1 


• 8.d3 


• d3s0021 


isl.l 


•6.d2 


• d2»4300 


or . 1 


d3.d2 


d2=C321 


move . * 


d2. <e0) • 


•ptn»d2 


dbf 


d6.9do2 


while -i! s- -count 


adda. 1 


dS.aO 


pre<*sinc.b 


dbf 


d?.?dol 


while -l!r--height 


mcvem. 1 


(a7)*.d4-d7 


restore registers 


unlk 


a6 


remove locals 


res 




return 


clx.w 


dl 


ANDaO 


FIXOV 


d2.d0.dl 


A overflow 


FIXOV 


d3.d0.dl 


B overflow 


bra.* 


«ok 




EOTHTNC 






macro 






CCC 


4V.4SP1.4SP2.4AV 
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rr.cve . 1 


4V.4ST2 


; 5F2=0102 




isl.i 


t3. tS?2 


e- r* T i flirt 




cr.l 


4V.ii?2 


r £F2=U22 




-eve . 1 


4V.4SP1- 


* SF 1 = C 1 




swap 


4SF1 


SF1-C201 




TOV€ . w 


4SF2.4SP1 


SF1*0222 




swap 


4SF2 


SF2=2211 




rr.cve . w 


&SP2.4V 


VaOlll 




move . 1 


&V.4AV ; 


•pm»V 


• 


mcve . 1 


&SF1.LAV 


•pm=SPl 




endm 








li &TYPE ( ' seg * J x 'UNDEFINED' then 






seg 


fcseg 






end if 






Y2GGG 
• 


FUMC 


EXPORT 




PS 


RECORD 


8 






OS.L 


1 




Y 


DS.L 


1 




lines 


OS.L 


1 




widen 


DS.L 


1 




cols 


OS.L 


1 






ENOR 







dO - v. d4 ■ 
aO - pm, al 



9dcl 
■?do2 



f?ok 



width. dS 
• Y 



inc. d6 - count* d7 - lines 



linx 


a« .#0 


; no local variables 


movem. 1 


d4-d7.-(a7) 


; score registers 


move. 1 


PS.pixmap<a6) ,a0 


; pmspixmap 


move. 1 


PS.Y(a6».al 


; YeYC 


move. 1 


PS.linea<a6) ( d7 


; long lines 


subq.l 


41. d7 


r lines-. 1 ** 


move. 1 


FS.vidthta«).d4 


r long width 


move. 1 


PS.ccis(a6) ,d5 


■ inc»cols 


sub.l 


d4.dS 


■ inc- -width 


lsl.l 


•2.d3 


inc (bytes) 


lsr.l 


*2. d4 


width>>«2 


subq. 1 


■l.d4 


width-»l 


move. 1 


d4 . d€ 


count -width 


move. 1 


(el)*.dO 


d0sxlx2 (10 bits signed) 


move. 1 


(al>~,dl 


dl»x3x4 (10 bits) 


move. 1 


•$0200C200.d3 


d3»plus 


add.l 


62,60 . ; 


d0sxlx2 (unsigned) 


add.l 


62 . dl 


dl*x3x4 (unsigned) 


lsr.l 


42. dO ; 


d0»xlx2 (10.8 bits) 


lsr.l 


•2.dl 


dl»x3»4 (10.8 bits) 


move.w 




d2=ma»k 


and.v 


d2.d0 


mask dO 


and.v 


d2.dl 


mask dl 


movenl 


dO.d* 




or. 1 


dl.d2 




andi.l 


•SFFOOFF00.d2 




tane.s 


Cover 


if no overflow 


CCG 


d0.d3.d3, <a0)* 




GOO 


dl.d2.d3, <a0>* 




dbf 


d6.«do2 


while -1! e- -count 


adda.l 


dS.aO 


pm*«inc_b 


dbi 


d7.9drl 


vh i 1 e -!!»-- lir*f 
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severe . 1 

unik 

rts 

rir.w 

Fixov 

rixov 

£ra . w 



ta~ ) ♦ . d4 -d7* 
a6 

S3 
<*ofc 



restore regncers 
remove lecalo 
return 

A overflow 
B overt lew 



L.VDPUNC 



macro 
KXRGB2 

Lsi. 1 
or. i 
move . 1 
swap 
move . v 
swap 
move . w 

andi . i 
andi . 1 

move . I 

add.l 

lsr.l 

move . 1 
sub.l 
lsr.l 
add.l 

move . 1 
move . 1 
move. 1 
move. 1 

add.l 
sub.l 

move . 1 
move . 1 
move . 1 
move . 1 

sub.l 

en dm 



4R. 4C. 4B, 4ARGB. 4R0W, 4.XX 



«8.&C 
4B.4G 
4R.48 
&B 

&C.4B 
&G 

4C.4R 

*$fttej-efe.4r 
■sfffefe5-e.4s 

4A.4G 
4B.4G 
• 1,4G 

4B.4XX 
4R.4XX 

•i.4xx 

4B.4XX 

&R. t 4ARCB ) •* 
4G. I 4ARGB ) ♦ 
4£. ( 4ARGB ) * 
4£, (4 ARCS ) * 

4 ROW. 4ARGB 
«16,4ARGB 

4R. (4APGBI* 
4G. (4AAGB)* 
4B. (4ARCB) - 
4B. ( 4ARGB) * 

&ROW, tARGB 



CsCOCO 
G--GBGB 
BsOROR 
fi-OROR 
BsORGB 
GsGBGB 
RsORCB 



C2J 

i 12 i 

(12 J 

(211 

(2) 

(21) 

(1) 



7 bits for interpolation 
i bits for interpolation 

CsRCBU) 

G~sRGB(2) 

G/-2 

XXsRGBO) 
XX-.RCB(l) 
XX/. 2 
XX* *S 

•RGB***rgb (1) 
•RCB**-r9b -11.5) 
*RGB***rgb f2) 
•RCB**crgo (2.5) 



•RCB**«rg© (1) 
•RCB~«rgb (1.5) 
•RCB***rgb (2) 
•RC8**«xgb (2.5) 



if 4 TYPE ( »seg' >«'UWDETXNED' 

seg 4s«9 

endif 



then 



YUV2RGB3 



rune 



PS 

pixmap 

Y 

C 

V 

-re 3 



RECORD 

DS.L 

DS.L 

DS.L 

DS.L 

rs.L 



EXPORT 

8 

1 
1 
1 
1 



SIIRSTITIITF SWPFT fRIfl P 7F\ 
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width 
cols 



Li 

:nc 

width 

tend 

count 

row 

line 



0do 



DS-L 
. L 
DJDR 

RICORD 

DS.L 

DS.L 

DS.L 

DS.L 

DS.L 

EOU 

ENDR 



0 . CXCR 

1 

1 

1 

1 

1 



AO - YO. ol - Yl. a2 - U. a3 
d0..6 - used. d7 - count 



- V. a4 - pmO. a5 - pml 



link a6,§LS.LSi2e 
movem.l d4 -d7/a3-a5, - (a7 ) 

move.l PS. p i>anap ( a6 ), a4 

move.l a4.a5 

move.l PS.Y(a6),aO 

move.l aO.al 

move.l PS.U(a6>,a2 

move.l PS.VIa6>»a3 

move. 1 PS. area (a6) ,d7 

lsl.l #2.d7 

add.l «4,d7 

move.l d7,LS.fend(a6) 

move .1 PS . width I a6 > , d5 

move .1 d5 . d7 

aar.l tl.d*J 

subq.l »l.d7 

move.l d7, PS. vidth(a6> 

add.l d5.d5 

add.l d3,al 

add.l dS.dS 

move .1 d5 . LS . width ( a6 ) 

move.l PS .cola <a6 » ,d4 

lsl.l »2.d4 

move.l d4,LS.xow<a6) 

add.l <±4.a5 

add.l d4,a5 

add.l d4,d4 

add.l d4.d4 

sub.l d5.d4 

sub. 1 c5,d4 

move.l d4 , LS. inc (a6) 

LJV2RCB3 (*2)*, (a3N 

tetchy (aOi», d0,dl.d2 ,d3 

fETCHY <al)*,d0.d4,d5,d6 

move.w ?S3F7T,dO 

lsr.l «2.dl 

and. v dO.dl 

lsr.l 92.62 

and.w d0,d2 

lsr.l #2.d3 

and.w dO,d3 

lsr.l «2,d4 

and . w dO , d4 

1st.) -2.« 



inc. width, fend and rowend are loca 
score registers 

pniO»pixmap 
pnlapnO 
Y0 = VC 
YlsYO 
U=UC 

v.vc 

fand=ar«a 

f end<<s2 

tend*«pniO 

save fend 

widtrwidth 

count «widch 

count>>«l 

count -»1 

save width 

width* »2 

Yl*«width 

width* s2 " 

save width 

inc*cole 

inc<«s2 
•NEW save row 

pml* = inc 
•NEW pml ♦sine 

cols"*2 

•NEW C0lS'«2 

inc now 4*cols*width bytes 
•NEW inc now 4*cols-width bytes (wid 
save inc 

uv2rgb(*U**, *V**) 

add Ya to RGB values 
add Yb to RGB values 

dO*nask 

dl 8(16) bits 

dl masked 

d2 8(16) bits 

d2 masked 

d3 8(16) bits 

d3 masked 

d4 8(161 bits 

d4 masked 

41 R'16» hits 
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icr: . i 



3over 



and.w 
isr.l 
and.w 

xcve . 1 
cr . 1 
zc . i 
cr.l 
cr.l 
cr.l 
andi . 1 
bne.w 

y.XF.CB2 
hKRGB2 

dbf 

adda.l 
adda. 1 
adda.1 
exg.l 

»ov«. i 

cmpa . 1 
blt.w 

mo van . 1 

unl* 

res 

move . 1 
clr.w 
nxov 
nxov 

FIXOV 
FIXOV 

nxov 
nxov 

move . 1 
bra 

DJDFUNC 



macro 
FETCKY2 

move . 1 

asr.w 

swap 

asr.w 

swap 

add.l 

add.l 

add.l 

endm 



dO.dS 
• 2.d* 
d0.d6 

dl.dO 
d2.d0 
d3.d0 
d4.d0 
dS.dO 
dfi.dO 

tSFFOOFFOO.dO 
©over 

dl . d2 . d3 . a 4 . LS . r ov ( a6 \ . dO 
d4 . d3 . d6 . a 5 , LS . row ( a6 ) . dO 
d7 . 9do 

LS. inc(a6) . a4 
LS. incia6> ,a5 
LS.widthia6),aO 
aO.al 

?S.width(a6) .d7 
LS.fendia6) . a4 
0do 

(a7>*.d4-d7/a>a5 
a* 

d7, LS. count <a6) 
d7 

dl,d0.d7 
d2.d0.d7 
d3.d0.d7 
d«.d0.d7 
d5.d0.d7 
d6,d0.d7 
LS.ccunt (a6) .d7 



d5 rr*as*ec 

do 6 f 1 6 ) cits 

d6 masked 



LAY. 4Y. fcR. *C. 6B 

&AY,fcY 

• 2,iY 
tY 

• 2.WY 
&Y 

tY.tR 
4Y.4G 
iY.fcB 



macro 

OV3JUSB4 tAO.tAV 

move.* iAO.d2 

f r^ w •$03FT,d3 

raove.l <a6.d2.w # 8) .d3 

raove.l d3.d6 

move.l 4la6.d2.w»8> ,d5 

movt.v tAV'.dl 



U 



it overflew 

: -NEW save RGBa 
; *NEW save RCBb 

while 

pnO* = ine 

pml*=inc 

Y0*=width 

Y1<->YC 

count swidth 

pmO<f end 

while 

restore registers 
remove locals 
return 
save count 
ANDaO 

A overflow 
B overflow 
A overflow 
B overflow 
A overflow 
B overflow 
restore count 



;Y 



v i« CO ^127 

Rtn G*t (Y- 2V ♦ 312) for Red »• (Y - 
GREEN? Get (Y . (512 - I6U/16IJ - VI 
BLOT. Get (Y * (20 ♦ 512) for Blue « I 



BLOT. Get (20 * 512 )/4 for Blue . (Y ♦ 
Due for second pair 

C.t (512 - (60/16) )/4 tor Gree 
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mcve . v 
asr. w 
sut . v 
move . w 
swap 
move . w 
mcve . I 

and. w 
move . 1 
move . 1 

endm 



dl,d4 
• 2.dl 

11. d5 
15. d2 
15 

12. d5 
li.d2 

*$03FF.d4 
(a6.d4 .w*8) .d4 
d4.dl 



;GR£EN. Cec (512 - '€L'/16) - V>/4 !c: 
;Dup ioz second pair 

; RED, Get (2V * 512) /4 tor Red s ( Y • 



HKRCS2SUB FUNC 
* 

KKRCB2 
MKRGB2 
rts 

ENDFUNC 

OVERSUB FUNC 

move . 1 
or.l 
or.l 
or.l 
or.l 
or.l 
andi . 1 
bne. s 
6ok rts 
e over move.l 
clr. w 
fixov ■ 
nxov 
rixov 

FIXOV 

nxov 
nxov 

move. 1 
bra 

EWDrUKC 

Lf/2RCB4SUB FUHC 

UV2RGB4 
rts 

ENDFUNC 

FETCKY2SUB FUKC 

FETCHY2 
FETCMY2 
rts 



EXPORT 

dl.d2.d3.a4.d7.d0 
d4,d5,d6.a5.d7,d0 



EXPORT 

dl.dO 
d2, dO 
d3.d0 
d4.d0 
dS.dO 
d6.dO 

•SFFOOFFOO.dC 
6 over 

d7, -(sp) 
d7 

dl.dD.d7 
d2.d0.d7 
d3.d3.d7 
d4.d0.d7 
d5.d0.d7 
d€.d0.d7 
op>*.d7 
9 Ok 



EXPORT 
(a2)*. <a3)* 

EXPORT 

Ia0)*.d0.dl,d2,d3 
Ial)*.d0.d4.d5,d6 



•new save RGB a 
•NEW save f.CBb 



; if overflow 

; save count 
; AWD»0 
; A overflow 
; B overflow 
; A overflow 
; *B overflow 
; A overflow 
; B overflow 
; restore count 



; uvJrgbCU—. »v**> 



add Ya co RGB values 
add Yb to RGB values 



DfDFTTNC 



it *TYPt'-«e7'i*'n>7DEFT7CT* "hen 
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se<j 
end i* 



iseg 



VJV2JIGE5 



rrac 



ZLXPORT 



? s 




Tafcle 


DS. - 


p;xmap 


DS.L 


Y 


DS. L 


U 


DS.L 




DS.L 


area 


DS.L 


width 


DS.L 


ccis 


DS.L 


* 


EtfDR 


LS 


RECORD 


inc 


DS.L 


width 


DS.L 


tend 


DS.L 


count 


DS.L 


row 


DS.L 








E2JDR 



i 
I 

1 

I 
1 
1 
1 



O.DECR 



aO - YO. aX - Yl. a2 - 0. a3 
d0..6 - used, d7 - count 



v. a4 - proO. a5 - pmJ 



"link 


a6. «LS.LSixe 


; inc. w\dch. fend and rowend axe loca 


movew. I 


d4-d7/a:-a5.-ta7) 


; store registers 


move. 1 


PS. pixnap(a6) , a4 


; pntOapixmap 


move . 1 


a4.*S 


; pndspnO 


move. 1 


PS.Y<a6> ,aO 


; YO«Yc 


move. 1 


aO.al 


; Yl«YO 


move. 1 


PS.U(a6» ( a2 


; UaOC 


move . 1 


PS. V<a6> ,a3 


; VaVC 


move. 1 


PS.axea(a6) ,d7 


; iend«axea 


lsl.l 


•2.d7 


; *end«s2 


add.l 


a4.d7 


; fend~»pmO 


move . 1 


d7, LS.fesd(a6) 


; save fend 


move . 1 


PS . width { a 6 ) . d5 


; widthvwidth 


move . 1 


d5.d7 


; count= width 


asr.l 


• l,d7 


, counc>»l 


subq. 1 


#l.d7 


: count -»1 


move . 1 


d7. PS.widthia6> 


save width 


add.l 


d5.d3 


■ width»«2 


add.l 


d5,al 


Yl*»widch 


add.l 


d3.d3 


width- -s2 


move . 1 


dS.LS. width (a<) 


save width 


move. 1 


PS.colaiafi) ,d4 


inc»cols 


lsl.l 


•2.d4 


inc««*2 


move. 1 


d4 ,LS.row<a6) 


•NEW save row 


add.l 


d4.«5 


pmi*sinc 


add.l 


di.Ai 


•NEW pml*»inc 


add.l 


64.64 


cols»«2 


add.l 


d4,d4 


•NEW cois*«2 


sub.l 


d5,d4 


inc now 4*cols-width bytes 


sub. 1 


d5,d4 


•MEW inc now 4»cols-width bytes <wid 


move.l 


d4 , LS . inc (a6 ) • 


save inc 


. 1 


- * •"»»•.■ 





WO 94/23385 



PCT/CB94/<KK77 



- 767 - 



Engineering : iraCcde : CcmpPict :ZzLzr2 .a 



.■ncve.l 46,-lsp] 

r,cve . : LS. revt a6) ,-d7 

rr.cve . 1 ?S. Table (a© i . ao 

*wV2RGB4 ' a2 ) - , ( d3 ) ♦ 

FI7CHV : ' a 0 i ♦ . ciO . dl . ±2 . c2 

fetchy: : a : i • , d3 . d< . d5 . do 

move . i dl , dO 

or.I d2.d0 

cr.l d3.d0 

cr.; d4.d0 

or.I dS.dO 

or.I d6.d0 

andi .1 ♦SF" OOF?00,dO 

bne.v 8over 

(?ck MXP.CB2 dl . 61 . d3 . a4 , d7 . dO 

MKRCB2 d4 , d5 . d6 , a5 , d7 , dO 

move.l Isp»*,a6 

move.l tsp)*,d7 

dbf d7.ido 

add&.l LS. inc<a6) . a4 

adda.l LS. inc I a6) . a5 

adda.l LS. widest a6) . aO 

ex?.l aO.al 

move.l PS . width ( a6 ) , d? 

cmpa.l LS . fend ( a6 ) . a4 

bit. a 3do 

* 

mcven. 1 Ia7>*,d4-d7/a3-a5 

unlk a6 

rts 

Qover move.l d"7 . LS . count t a 6 ) 

clr.w d7 

FIXOV dl,d0.d7 

FIXOV d2.d0.d7 

FIXOV d3.d0.d7 

FIXOV d4.d0.d7 

FIXOV d5.d0.d7 

FIXOV d6.d0.d? 

mcve.l LS . count t a6 ) . d? 

era eok 



; uv2r<jbi # U— . "/--) 

; add Ya to RGB values 
; add Yb to RGB values 



; if overflow 

: -new save RGBa 
; -NEW save RGBb 



while 

pmO*einc 
pral - a inc 
Y0*«widtn 
Y1<->Y0 
count ■width 
prcO< f end 
while 

restore registers 
remove locals 
return 
save count 
AMD» 3 

A overflow 
B overt low 
A overflow 
B overflow 
A overflow 
B overflow 
restore count 



EKDFUKC 



END 
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Analyse CLLT setup and pick appropriate 
YUV->RCB ccnverter/display driver. Create 
any tables necessary 

• / 

•include <QuickDrav.h> 
•incluae -Memory. ri> 

•define Y_LEVELS 64 
= do tine w"V_ LEVELS IS 

•define absvlv) < cvxC?- ivi : iv) ) 
•define NevPointer iptx . type . size ) \ 
saveZonesG«t2cne< : ; \ 
SetlcneiSystemZont () ) ; \ 
i: (nil s= tptr» i type )NevPtr 1 size)) J ( ' 
SctZone < ApplicZont ( ) ) ; \ 
if (miss tptrs (type)NewPtr t size) : ) { \ 
Setzone < save2one ) ; \ 
return < MemoryError I J ) ; \ 

) \ 

) \ 

SetZone ( saveZone I ; 

typedef struct ( 

cnar y, u. v: 
I YW.CIUC; 

unsigned char * 

CclourC iut (CTabHandle clut ) 

ir.t size. y. u. v. r. g. b. i; 
ur.319r.ed cnar -table; 
VUY.Ciut -yuv.clut; 

s:ze*t -clut )->czSize; 

:able» resigned char • JNevPtr < Y_LEVELS*W_ LEVELS* IT/_LEVELS) ; 
yuv.cluts(YUV_CIut • JNevPtr »siae»sizeox (YUV.Clut ) ) ; 

for< i=0; i<=size: i**) ( 

r»< < *clut ) ->ctTable [i) .rgb. red>>8 ) -128; 
gs ( t "clut ) ->ctTable [i) .rcb.9*een>>8 > -^S.- 
bs < ccluc) ->ctTable(i] .rtfb.blue»e>-128; 

yuv cluc(ij.y» (306*r * 601«g * ll*7*bi>>10; 
yuv*clucUJ .u« (512T - 429-g - 83-b)»10: 
yuv"clutCi) .v» (-173T - 339 - « * J12»b)>>10; 

) 

i c r t y a - Y _ LEVELS / 2 ; y < Y. LEVELS / 2 - 1 ; y ♦ ♦ ) 
f cr tu*-UV LEVELS/2 ;u<UV. LEVELS /2-1 ; u** ) 
!oriv.-UV.LrVELS/2;v<OV.LEVELS/2-l;v**> ( 

int index. error. errox2, points. Y. U. V; 
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r*y<<4 : 

U=uc<5; 
Vav< <5 ; 

:r.dex = 0: 
crr5r=13X07: ; 

error2 =13 1072; 

point s = 0; 

icr( i«0; i<=size: i**) ( 
inc pc-isO. err«0; 

if </uv_elu: (i) .y>=Y &£ yuv.cluc (i] .y<Y*16l 
pts*»l; 

err*sabav(yuv.clut (i ] .y-Y) ; 

if (yuv.clutli] .u>»U &£ yuv.cluc I i ) . u<0O2 i 
pcs*«l; 

err»»Absv(yuv_cluc [i] .u-UJ ; 

if (yuv.clut [i] . v>rV && yuv.ciut (i] . v<v*32) 

err*sabav(yuv_clut f i] . v-V) ; 

if (pcs>points I I (ptsaspoincs ik «rr<errorM { 
error=err; 
indexsi; 
point*«pt»; 

> 

U ( (yt0xlD<<8) I ( <o&0xF)<<4> I (viOxF) ; 
tablet i] » (unsigned char) index; 

) 

DisposePtr ( (Ptr)yuv_clut ) ; 
return cable; . 

)•/ 

typed if union ( 

long pixel; 

unsigned cnar rgb[4]; 
• Pixel; 

unsigned long * 

ColouzClut (CTabHandle clue) 

long sue. y. u. v, r. g. b, ro. go, bc.i; 
Pixel -table; 

si2»«Cclut)->ctSize; . #( . 

cable- (Pixel • JNevPtr (Y.LEVELS»UV.LEVEiS*UV.LEVELS'si2eof (long) ) . 

f c r ( y » - Y.LEVTLS / 2 ; y <Y_LEVELS / 2 - 1 ; y ♦* > 
f ox i u » - OV.IXVK-S / 2 ; u<UV_LEVELS / 2 - 1 ; a** ) 
for(v«-W.LEVELS/2;v<OV.LCVELS/2-l;v**) { 

Pixel px; 

long base, dith; 

r » 32T68L ♦ <(y«9) ♦ 1436L*U <<2); 

g * 32768L ♦ ( ly«9) - 731fu - 352fv «2); 

b - 3376HL * <ly«9) ♦ 1815fv «2); 

r»r<0?0:r>65534?63534:r; 
g s g<0?0:g>65534?65534:g; 
tsb'.OJO : t>i$ 534 ?* 5534: b; 
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rcsrll3137: r-r/13107; 
cc=g%13IQ7; 5=g/13107; 
bo*b%13107; £)st»/13l07; 

tase = 215- ( 36T-6-g-b) ; 

dit^rfcase- < ro>2621?36 :0) -(gc»*?863?6 : 0) - ibo> 104 8 4 7 1 : 0) ; 

d:ch=base- I ro>5242?35 : 0) - (go>104 84 ?6 : 0 J - 1 bo>262 1? i : 0 » ; 
px.rgbll) =dich==213?2 35:dicn; 

dithsbase- ( ro>7863 ?3t : 0 ) - igo>2 62176 : 0) - 'bc>5242 71 : 0 ) ; 
px.rgbf2]=dich=*215?2 55:dith; 

dithrbase- ( ro> 10484 73 6 rO) - (go> 524276 : 0) - (bo>?863?I : 0 J ; 
px.rgb{3 ] ^dith3*215?255;diih; 
i• < ly&0x3F l«8) I ( lui0xF)<<4) I (vfcOxF) ; 
wable(i) .pixel?px. pixel; 

i 

rocurn (unsigned lcng* ) table; 



cypedef struct ( 

long red. green, blue; 

) RGBError; 

OSErr ColourCluc ( Pixel ••table) 

( 

long y, u. v. r # g. b. i; 
RCBError *err; 
THx save Zone; 

NevPoinceTCcadtle. Pixel'. Y.ixms* W_LFTO^*UV_iJVEL$*sixeof < long) ) ; /• 64k ca 
NewPointer ( err, RCBError *. Y_ LEVELS •UV. LEVELS 'tJV_LEVELS» si reof (RGBCrror) ) ; 

f or ( ioO ; i<4 ; i**) 

t o r t y « - y.LTVELS/2 ; y < Y.LEVELS/2 ; y ♦ ) 
tor t u * -UV_ LEVELS/2 ; u<UV_LEVELS/2 ; u** I 
for lvs-lA'_L£VELS/2;v<W.LEVELS/2;v— J ( 

RGBColor src. dst; 

long index. in; 

mdex*< tyfc0x3F)<<8) I ( (ut0xF)«4) i (viOxF); 

r > 32768L * ( ly«9> * (1436L*u) «2 ) ; 

g a 32768L ♦ ((y«<9> - <731L*u) - <352L»v) <«2>; 

b s 32768L * ((y«9) * (1815L»v) «2>; 

if <i>0) { 

r-»erx( index) .red; 
g-*err( index) .grnn; 
b- -err (index] .blue; 

) 

src. red»r<0?0:r>63534 763334 : r; 
src. gxeen»g<070:g>6 3534 763 534 : g; 
src.bluesb<0?0:b>63534?65534:b; 

'•-.ebl*» { ir>-i~r.) . r?b { i ) * 'unsigned rh*r*C?lcr2:n^<f^ '**rr » : 
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lniex2Ccicr( ( '-able) (incexj .rcttii .ids:) : 
err ( index) . red=dat . red- arc . red: 
er r t ir.cex 1 • green*dst . green- src . green; 
err( ir.Zex 1 . tl'je=dst . blue -src .b:ue; 

iisposePtn :Ftr:em : 
return (r.oErr : : 



t 



v/pedef struct ( 

short pel {2]: 
} Pixl6; 

:ypede£ struct ( 

unsigned cnar pel 14]; 

1 ?ix8: 

'define YS 64 
♦define UVS 22 

OSErr Colour8(Fix8 ••table) 

C K - 

long y, u. v. r* g, d. i; 

RCBError *err; 

THt saveZone; 

NewPcinterctatsle.Pix^^.YS'lTVS'UVS'Jiieof (Pix8)); /• 128k table */ 
NewPointer (err . RCEError • . YS-UVS* UVS* siieof (RCBError) ) ; 

for I i«0:i<4; i**> 
for (y*-YS/2;y<YS/2;y-*) 
for ( u» -CVS/2 ; u<UVS/ 2 ; u»+ ) 
for<v*-UVS/2;v<UVS/2;v**» { 

FGBColor src. dst; 

long index; 

index=<y*<10) I ( (u40xlF)<<5> I (viOxlF) ; 

r s 1 2768L * Hy«10) ♦ (1436L*u) «l)f 

g « 32768L - i(y«10> (731L'ul - (352L-VI ; 

b * 32768L * My«10l * (1815L'v» <<1); 

if (i>0) ( 

r-«err (32768-index) .red; 
c-serr [32?68» index) .green: 
b-serr (32768* index! .blue; 

) 

src.redsr<0?0:r>63534?e5334:r; 
src. green«g<0?0:g>6 5534 ?65534 :g; 
9ZC.blue-b<0?0:b>65534?6S534:b; 

(•table) f32768*index).pelCi) = (unfligned char) Color 2 2udex< tare) ; 
lndex2Color( I 'table) (32768*i&dex] .pel I i ] . tdst ) : 

err t 32768-index) .red*dst. red-arc. red; 

err (32768- index) .green*dst. green-arc. green; 

err 132768* index] . blu»«d»t . blue- src .blue ; 

) 

DispoaePtrt(Ptr)err); 
return l noErr ) ; 



CiiOPTiTirrr rucrr /nm r ***** 
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CSErr CricurH (PixU • 'taole/ 

Icr.q y, u. : • 3. b.' i; 
=G5£rrcr *err: 
TH: savelcne. 

NewPcir^er -lable. ? j x i£ • . YS*'JYS*'JVS # sizecf (Fixl6 ) J : /• 128k cable •/ 
KewPoincer i err . KOBZz ror V YS*'JVS*UVS # sizeof (RCBErrcr) > * 

fcrlis0:i<2;i*-» 
:cr ly=-YS/2 ,*y<YS/2 ;y*l 
fcr lus* UVS /* :u<UVS/2;u**J 
:cr lve-UVS/2 : v<CTVS/2 : v**l t 

RCBColor src. dst; 

long index; 

:r.dexs (y<<10) I ( (uAOxlF) c<5) I (vtOxlF) : 

r » 32768L • My«lO) ♦ <M36ful 

g = 32768L * ( (y«10l - <731L*u) • <352L«v) «1); 

b = 32768L * I (y«10» ♦ (1315L*v) <<1); 

if (i>0) ( 

r-serr ( 32 7 68^ index) . red; 
g-=err (32768* index) .green; 
b-«exr (327 68 ♦index] .blue; 

) 

arc.xed8r<C?0;x>65!34?«5534:r; 
src . green«g<0?0:g>€5534?6 5534 :g; 
src. blue«b<0?0:b>65534?6 5534: b; 

dst.reds arc .reeUOxf 900; 
dst. greens ire . gr»«niCxF800: 
dsc.blue* src .blue40;:F800; 



(•table) (32766-index) .pel f i ] • <dat .red»l> I (dst .green»6 ) I (est ,blue»U ) ; 

err (32768* index) .redsdit . red-src. red; 

err (32*68- index) .green-dst . green-src . green; 

err (32768*ir.d«x) .bluesdst . blue-src . bluer 

) 

rispcsePtr ( (Ptr)err) ; 

return t noExr ) ; • 



Bcolean 

CreyClut (CTabHandle clut) 

i 

Boolean result=true; 
int i, size; 

siie«eclut)->ccSi2e; 
for ( i*0; i<»aiie fcfc result ;i**) ( 
int r,g.b; 

r« ( # cluc ) ->ctT«ble i i ) . rgb. red; 
g* Cclut) ->^cTable(i) .rgb. green; 
b» felut) ->ctTable(i) .rgb. blue; 

result«<r=*g 4ft geab) ; 



r'tDcnTi !Tr rurrr /dim r nc\ 
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• $ Ccp/right 19S3 KLICS Linited 

- All nan: s reserved. 
■ 

• written by: Adrian Levis 

• • / 

BitsJ.h: fast bit read/write definitions 

buf.use define static variables 

buflwmit initialise vers for write 

buf.rmit initialise vars fcr read 

buf.set set current bit 

buf .get get current bit 

buf.wmc increment write buffer 

bufZnne increment read buffer 

buflsize fullness of txiffer in bytes 

buf. flush flush buffer 

User defined macro/ function buf_over muse be defined in case of buffer over f la 

typedef struct ( 

unsianed long *cuf; 
union ( 

unsigned long mask; 

long bno; 
) index; 

unsigned long "per. data, size; 
) Buffer. *Buf; 

*d*fine buf.winit (buf ) \ 

buf ->index.mask*OxBOOO000O; \ 
buf ->ptr»*buf ->ouf [OJ; \ 
buf->data«0; 

(•define buf.rinit (buf > \ 
buf -> index . bno* 0; \ 
buf ->ptr=4buf ->buf (0) ; 

•define buf. set (buf l \ 

buf->data is buf -> index. mask; 

•define buf.getibuf) \ 

0 : = (bux->data 4 : l<<buf->index.bno) ) 

■define buf.winc (buf ) \ 

if (buf ->index.mask»cl) ( \ 
•buf ->ptrsbuf ->dat«; \ 
buf-xlataaO; \ 

buf -> index. ma jk»0x60000000; \ 
buf->ptr**: \ 
} else buf -> index. mask »* 1; 

•define buf.rincibuf > \ 

if (buf -> index. bno) <0) ( \ 
buf->datas*buf->ptx»*; \ 
buf -> index. bno»31; \ 

>; 



/• buf.siie only valid after buf. flush 
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•de:ir.e bur.s ii« <bui ) \ 

Jur.siTncd cnar V buf ->ptr- (unsigned char • ) ibvr ->bu£ [0] 

•defin* buf.f lushtbuf ) \ 

if itui ->;r ; dex.majJt: *0x8O00OOOO) { \ 
but -*daca I =bul -> index. masx- 1: \ 
•cu£ - >pcr=but - >daca; \ 
bur->ptr**; \ 
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630CO Bjc buffer code <Bits2.h) 



iptr. 4data.fcmask.ibuf 
iptr. ibno. (but 
idata. fcmask 
&data. fcbno 
iptr. fcdata.fcmask 
iptr. idata, fcindex 
&ptr. fcdaca.fcjnask 



macro 






buf.winic 


iptr . fcdata. fcjnask, fcbuf 




move . 1 


•SSOOOOOOO.fcmask 


; masks 100.. 


move. 1 


fcbuf . ipcr 


; pcrsbuf 


clr.l 


fcdaca 


; data^O 


endn 






macro 






buf.r jnic 


&pcr. fcbno, ibut 




clr.b 


4bno 


; bnoaO 


move . 1' 


tbuf . fcptr 


; pcr«buf 


endm 






macro 






buz.set 


idaca. kmasJc 




cr.l 


imask. fcdata 


; data :» masr. 


endrr. 






macro 






buf_get 


A data. &bao 




subq.b 


U,fcbno 




btit 


ibno, tdata 




eadw 






macro 






buf.winc 


•per. 4 data , fcmask 




lsr.l 


•l.&mask 


; mask»al 


bne.5 


*cont 


; if non-tero c 


move. 1 


4 data. Uptr)* 


; •ptr»*»daca 


cir.l 


4data 


; dataaO 


mcve . ! 


*S?CP0f»OC0. %mas*: 


: rr«flr*IOfl . . . 



Macros : 

buf.rinit 
buf.set 
buf_c/et 
buf.winc 
buf _nnc 
buf .flush 
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endm 





nacro 
buf _r mc 


ipcr, idata.&bnc 




* 


cnrpi . b 
bge. 3 
swap 
move . v 
add.b 


*16. ifcno 

@cont 

tdata 

( tptr >♦ . tdaca 
•16 . ibno 


; datas'ptr-* 
; bno*«16 


9conc 
* 










endm 







macro 
buf. flush 

cmp. 1 
beq.s 

move . I 



&ptr.ldatft,unask 

*S80000000, Unaak 
3cont 

fcdata, (tptr)* 



mask-8000000? 

if buffer empty continue 

•per** "data 



endm 
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Extra fast Bac*vard\convolver 

New wavelet coefis :3511. 12 1. 11 

Optimized for speed: 
dirn - False 
sre/dst octave == 0 

•/ 

•defir.e BvdSO (adcxO.dAC.dAH.dBHl \ 
v: • ( short * i addrO; \ 
dAC« -v; \ 
dAHs v; \ 
dSHs v«l; \ 

•dafir.e SwdSl taddrl. addrO. dAG.dAH.dBHI \ 
vs»isr.cxt •laddrl; \ 
iBH»« v>>;.* \ 
dAG*» v*ivs»v<<1); \ 
dAH-e v»IV3«sU ; \ 
•(short • )addrO=dBH>>l: 

•define Bvd2 i addx 2 . dAC . dXH . dBC . dBH 1 V 
vs* (short # )addr2; \ 

dBC- -v; \ 

d£H« v; \ 

OAHts v*ivssv<<U; \ 

dAG*« v* I vs«sl ) ; 

^define Bvd3 ( addx 3 . addr2 . addrl . dAC , dAH. dBC. dBH) \ 
va* i short - )addx3; \ 
dAH* ■ v; \ 
dAC*» v; \ 

dBG*« v*lvs«v«H: \ 
dfiH-« : vs«<*l ) ; \ 
•ishort • »addri« idAK»;)>>2; \ 
•tshort • ) addx 2 « i dAC* 1 ) >>2 ; 

w define fiwdO (addrO.dAC.dAH.d3G.dBM] \ 
v=» (short *)addrO; \ 
dACs -v; \ 
dAH« v; \ 

dSH+* v*(vs«v«l); \ 
dBC** v»(va««»l); 

►define Bwdl (addrl. addrO. addr3 .dAC.dAH.dBC. dBH) \ 
v«*< short *) addrl; \ 
dBH*» v; \ 
dBG*s v; \ 

dAG*» v* < vs»v«<l > ; \ 
dAH-« v«(V9<«»l); \ 
•(short *)addr3>(dBH*l)»2; \ 
•(short •)addxO»(dBG*ll»2; 

»d**ir.e Svdir 'sttzZ . ±KC. ±\H.i3H: * 
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vs«i short # iaddr2; \ 
dSHa ys:v«<l; \ 
dAH*s v(vs3V«U; \ 
iAG*» * V9<<»i) ; 

•de(ine Bvd£3 • addr3 . ad<ir2. addrl.dAG.cAH.dBH) \ 
v = # i3.^crc -*addr3; \ 
dAH* « v; 
dAC*= v; \ 

dBH-s v-(vs = v<<1); \ 
dBH- a V* 1 VS<<*1) ; \ 

•t short * )addxl»(dAH*D»2; \ 
•tshort • iaddr2s(dAG*l)>>2; \ 
• (short * )addx3adBH>>l; 

■define Bvd (base . end. inc) \ 
addrOabast; \ 
addx3=addr0- (inc>>2) ; \ 
addx2»addr3- I inc>>2) ; \ 
addrlsadcr2- linc>>2) ; \ 
BwdSOfaddxO.dACdAH.dBH) ; \ 
addrl*» xnc; N 

BwdSl(addrl.addrO,dAC,dAH,dBH); \ 

addr2*»inc; \ 

while (addix2< end) ( \ 

Bvd2(addr2.dAG.dAH.dBG.d3H); \ 

addr3*»inc: \ 

Bwd3(addr3*addx2*addrl f dAG.dXK.dBG,dBH); \ 
addxO**inc; \ 

BwdO(addrO.dAC.dAH.dBC.dBH); \ 
addrl*»inc; \ 

Bwdl ( addr 1, addrO. addx3.d\G.dAH,dBC. dBH) ; \ 
addr2**inc; \ 

) \ 

BwdE2(addr2.dAC.dAH.dBH) ; \ 
addx3<* = inc; \ 

Bwd£3 (addr3.addr2,addrl,dAC,dAH.dBH> ; 

-define BwdS0r2 (addrO . dAG.dAH. dBH) \ 
v*M snort MaddrO; \ 
dAC- 0; \ 
dAH« v: \ 
dBHs v; \ 

-define BwdSlr2 (addrl,addr0.dXC.dAH,dBH) \ 
vs- (short •Jaddrl; \ 

dBH** v>>2; \ 
dAG*« v; \ 
dAH-« v«l: \ 
•(shore -)addrO*dBH; 

•define Bwd2r2 (addr2.dAG.dAH.dBG. dBH) \ 
ve-( short # )addr2; \ 
dBG» 0; \ 
dBH. v; \ 
dAH*« v; \ 
dAG** v«l; 

•define Bwd3r2 (addr3 . addx2 ,addrl , dAC, dXH. dBC, dBH) \ 
v=* (short •)addr3; \ 
dAH*. 0; \ 
dAG*» v: \ 
dBG~» v: \ 
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v±BH-t v<<l; \ 

■•sr.er: • : addr 1 -dAH> > I . . 
• • shcr: • addz2»dAC>>l; 

■define =vdOr2 faddrO. d*C. dAh.dBG.dBH) \ 

v=»:snorc ':addrO; \ 
1AC« 0: \ 
dAH = v; \ 
iBH-s v: \ 
dBG- = /<<!; 

•define Bvdlr2 (addrl. addr 0. addr 3, dAG. dAH. dSC. dBH I \ 
vs- ishort * i addrl; \ 
dBH* a 0; \ 
dBC-s v; \ 
dAG*s v; \ 
dAH- s v«i ; \ 
♦(short * > addr3»dBH>>l; \ 
•tshcrt • )addr0sd5G>>l; 

^define BwdE2r2 ( addr2 . dAG. dAH* dBH) \ 
ve« tshcrt *iaddr2; \ 
dBHs v: \ 
dAH^s v; \ 
OAG • » v < < 1 ; 

-define Bvd£3i2 <addr3.addr2. addrl , dAG. dAH. dBH) \ 
v»» (short •iaddr3; \* 
dAH*. 0; \ 
dAG~* v; \ 
dBH- » v; \ 
dBH-- v<<i; \ 
'(short • Jaddrl«dAH»l; \ 
•I short • Uddr2=dAG>>l; \ 
•t short • ) addr3*dBH; 

•define Bvdr2 (base. end. inc) \ 
addrOsbase; \ 
addr3*addr0- { inc>>2) ; \ 
addr2saddr3- ( inc»2) ; \ 
addrl saddr2* t inc>>2> ; \ 
EwdS0r2iaddr0.dAC.dAH.dBH); \ 
addrl** inc: \ 

EwdSlr2 ( addrl. addrO. dAG. dAH. dBHi ; \ 

addri*-inc; \ 

while taddr2<endl ( \ 

Bwd2r2 (addr2.dAG.dAH.dBG.dBH); \ 

addr3+sinc; \ 

Bwd3r2 ( addr3 . addr2 . addrl . dAG . dAH , dBG * dBH ) ; \ 
addx0-»inc; \ 

Bwd0r2 taddrO. dAG,dAH,dBG.dBH) ; \ 
addrl*sinc; \ 

Bwdlr2{addxl.addr0.addr3.dAC.dAH.dBC.dBH) ; \ 
addr2**ine; \ 

) \ 

BwdE2r2laddr2.dAC.dAH,dBH>; \ 
addr3*» inc; \ 

BwdE3r2 I addr3 . addr2 . addrl , dAG. dAH. dBH ) : 

•define BvdS0r3 (addrO. dAG. dAH. dBH) \ 
v»» (short •iaddrO; \ 
dAG* 0; \ 
dAH* 0; * 
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d5Hr v»l: \ 

•define Sv<isir3 (addrl. addr0.d*C.dAH. dBHl \ 
vr*: shore Maddri; \ 
dBH-s v>>V- \ 
dAG*« v: • 
dAH -* v; \ 

•(short • » addrO=d£H<<l; 

•define Bwd2 r 3 ( addr 2 . dAC * dAH . d£G . <±BH ) \ 
v= # (short •)addr2; \ 
dBG» 0: \ 
dfiHs Or \ 
dAH* = v; \ 
dAG*. v; 

•define Bvd3r3 (addr 3. addr 2, addr I, dAG.dAH.dBG.d&K) \ 
v*»i shore *)addr2; \ 
dAH*. 0; \ 
dAG** 0: V 
d5G*« v: V 
dflH-s v; \ 

•(short ' 1 addrl=dAH; \ 
Mshort •Mddr2*dAG; 

'define Bwd0r3 (addr 0. dAG. OAH. OBG. dBH) \ 
v«* (short •JaddrO; \ 
dAG. 0; \ 
dAH. 0; \ 
CBH*» v; \ 
dBG*. v; 

t define Evdlr3 (addxl . addrO , addr 3 , dAG* dAH* dBG* dBH) \ 
v=M short •)addrl; \ 
dBH*. 0; \ 
dBG*s 0; \ 
dAG*o v; V 
dAH— v; \ 

•(short -)addx3»dBH; \ 
•(short •)addx0.dBG: 

•define &wd£2r3 (addr 2 . dAC* dAH. dBH I \ 
vs« (short *)addr2: \ 
dBH. v»l; \ 
dAH*- v; \ 
dAG*. v; 

^define Bwd£3r3 < ado^3 , addx2 , addr 1 . dAC. dAH. dBH) \ 
v« Mshort •)addx3; \ 
dAH*. 0; \ 
dAG*. 0; \ 
dBH— v; \ 
dBH-. v; \ 

•(short Maddrl-dAH; \ 
Mshort *)addr2*dAG* \ 
•(short • )addr3»dBH«l; 

•define Bvdr3 ( base, end. inc) \ 
addrO.baae; \ 

addr3*addrO-<ine»2); A 
addr2*addr3-(inc»2); \ 
addrl»addr2-(inc»2); \ 
BwdS0r3(addr0.dAC.dAH.dBH)? \ 
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addr 1-- inc; \ 

BwdSlr3 ( acdr 1 . addxO - dAC. dAH . dBH : ; > 
addr2*=inc; n 
-ruieiaddr2<end) { » 

Ewd2r3(addr2.dAG.C>H.dBG.dBH>; * 

acdr3--:nc: \ 

Evc3r 2 : addr 3. addr2 . addr 1 . dAC. dAH. dSG. dBH) ; \ 
addxO*sinc; \ 

BwdOr3 taddrO.dKG.dAH.dBG.dBH); \ 
adoxl*«inc: \ 

6wdlr3 I addr 1. addxO . addr3 , dAG.dAH.dBC. dBH) ; \ 
addx2*sinc; \ 

) \ 

Ewd£2r2 (addr2.dAC,dAH,dBH» ; \ 
addr3**inc: \ 

BwdE2 r 3 ( addr 3 . addr 2 . addr 1 . dAC , dAH . dBH I ; 

extern void FAST BACXWARDi char -data, long incl. long Icopi. long inc2. char •««d2) 
extern void HAARBACXWARDtchar -data, long incl. long loopl. long inc2. long loop2) 
extern void HAAXTOPBWDrehar -data. long height, long width); 
/• extern void HAAWCTO?3WD(char -data. long area);*/ 

void FasterBackvardtchar 'data, long incl. long endl. long inc2. char *«nd2) 

register short v. vs. v3, dAC, dAH. dBC. dBH. inc; 
register char •addrO. -addrl. •addx2. -addr3. -end; 
char 'base; 

inc = incl: 

tor tbase«data;base<end2;base*«inc2) { 
end» base* endl ; 
Bwd (base. and. inc); 

) 

) 

.extern void TOPBWD(char -data, char *dat. long sixe_l. long size.O); 

void TestTcpBacJcvaxdl short ♦data. int size (2 J. int cet.src) 

1 

int cct. area-sire tO] •siietl)<<l; 
short width*size(0)««l; 

char •tcp»araa* (char »)data. • laf t*width* (char -Jdata: 

tor (oct »oct_src-l; oct>0;oct — ) ( 

long cinc»2«<oct, cine4«cir.c«2. ,^ - 

rinc=size(0)«ocfl. rinc4«rinc«2; /• col and row increments in t 

FASTBACKWAHD ( (char ♦) data, rinc4 . area- ( rinc<<i ) . cine . iatt ) ; 
FAS? BACKWARD ( (char •> data. cinc4 . width- (cinc«l ) . nnc. top) ; 

FasterBackvard< (char Mdata. »ize[0)<O.area- <size(0]«2 1 . 2. left); 
FasterBaclcvardC (char •) data. 8. width- 4. size(0|<<l. top) ; / 
TOFBWDdchar # >daca.(char Mdata.aizarOl.sizell]) ; 

void TestBackward(data f siza.oct.src) 

shore * data t 

int sixel2], oct.src; 

{ int oct. area.sizeiOl •si2«(l)«l; 
short width»«izeIO)«l; 

char •topsarea**ch«r ^data. • l-f t»widrh* 'char M^ata: 
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! cr icc:=ccE_src-l.cct>»0:cct--) i 

Icr.c c :nc=2<<cct . cmc4 =cmc<<2. 

r inc=5iie ( 0] <<cc:* 1. rinc4=rinc<<2; /• col anc rov increments in c 

7 sstcrracfcvardi I char • )ca:a. rinc* . area - 1 r mc<< 1 J . cine, lef c) ; 
rascerracJcwarCi :cnar * icat a. cmc4 . width- (cinc<<! ) . rinc . tcp) ; 

i 

vcid 3ac)cvarci3 3 li (data. size, cct.srci 

short 'data: 

inc size(2). cct_src; 

( 

int ocz. areas9ize(0] *sise(l)<<l; 

short width=sire(0]<<l; 

char •top»area* (char •Jdata. -lercavidth* (char Mdata; 

for < oct=cct_src- 1 ; oct >0 ; oct - - ) ( 

long cinc=2<<oct. cinc4=cinc<<2. 

rinc=size (0)<<oct*l. rinc4snnc<<2; /• col and row increments in t 

BACK351K (char • Jdata, rinc4. area- (rinc«l> .cine, left) ; 
BACK3511 ( (char * ) data, cmc4 .width- (cinc<<l ) . rinc. top) ; 

) 

&XCK2!11V< (char • Jdata. size (0]«3.arte- (siza(0]«2) . 4. Imt t) ; 
BACX3 511HI (char • Jdata. 8.*idth-4, siz«(0)«l. top) ; 
/• TOPBWDMchar •) data, (char • Jdata, sijeflj . aixe[0] ); •/ 

) 
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• 

• 


680X0 3511 Backward code 




• 

• 


Cot: I - 5 .7 3 


3 




• 

♦ 


become 3 5 1 


1 








'Jtlics' 






micro 








BwdStarcO 


4dddr0 . 4dAG. 4dAH. 4dBH 


• 


move . w 


rtaddrO) , idAH 


; dAHsM short •iaddrO 




move . w 


I JAH. 4dAG 


; dAG.v 




nee, . w 


4dAG 


; dAGs -dAG 




move . v 


4dAH.4dBH 


; dfiHsv 


• 


add. w 


4dBH,idBH 


; dBH.v<<! 




' endre 








macro 








fiwdScarcl 


iaddrl . iaddrO , 4dAG. 4dAH. 4dBH 


• 


move . v 


Uaddrl) ,d0 


; v« • ( shore * ) addxl 




move .w 


dO.dl 


; vs»v 




asr.v 


• l.dl 


; vs*v»l 




add. w 


dl. tdBH 


; dfiH*« v>>1 




add.w 


dO , 4dAC 


; dAG-* mv 




sub.w 


d0,4dAH 


; dAH-«v 




add.v 


dO.dO 


; v<<sl 




add.w 


d0.4dAC 


- dAG~-2v 




add.w 


dO.dO 


■ v<<ui 




sub. w 


dO.idAH 


dAM-s4V 




asr.w 


•l.idSH 


d£H>>al 




move . w 


4d£H. i&addrO) 


v (short *iaddrOedSH 


* 


endm 








macro 








Bwd£ven 4addr2* 4dAC.4dAH, 4d£G, tdBH 


m 


move. w 


(4addr2).d0 


v»» (short *>addr2 




move. w 


d0.4dBK 


dB)Uv 




move . w 


dO.idBC 


dfiGsv 




neg.w 


4dBC 


d8G*-v 




add.w 


d0.4dAM 


dAH*«v 




add.w 


dO,4dAG 


dAG-»v 




add.w 


dO.dO 


2v 




add.w 


dO.tdAH 


dAIU-v 




add.w 


dO.dO 


2v 


« 


add.w 


d0.4dAG 


dAH*»v 




ento 







nacre 



W0 94/233M PCT/GB94,0<K77 

- 785 - 



Ensineering:K:icsCode:CcmpPicc :3dcxward.a 



2wdOdd 


iaddx3 . iaddr2 . iaddrl . AdAG. idAH, id£G. ic£K 


move . w 




; vsV shore * > addr2 


add. w 


dO . idAH 


; dAH*=v 


At* A u 


dO . idAC 


: dAC«*v 


add. w 


2C.ic3C 


; C£G«=v 


SUC . W 


dO.idBH 


; CfiH-rv 


add. w 


dO.dO 


; 2v 


add.w 


dO.idBG 


; d£C*?v 


add.w 


dO.dO 


• 4v 


sub. w 


dD.idBH 


d£H-s4v 


asr . w 


•2, idAH 


dAH»s2 


move . v 


idAH, (iaddrl) 


• (snore *)addxl=dAH 


asr . w 


*2.idAG 


d\G»*2 


move. w 


irtAG, tiaddr2) 


•(short •)addx2«dAG 


endm 







macro 



Bwd£nd2 


iaddr2 . idAC. idAH. idOH 


move. v 


(iaddx2) .dO 


; vs* (short • )addx2 


add.w 

add.w 

add.w 

move. w 

add.w 

add.w 

add.w 


dO.fcdAH 

dO.idAC 

dO,d0 

dO.idlH 

dO.idAH 

dO.dO 

dO,4dAG 


; dAH*«v 
; dAG**v 

? 2v 

; dBH.2v 
; dAH*«2v 
; 4v 

; dAG*«4v 


endm 






macro 
Bwd£nd3 


iaddx3 , &addr2 , iaddxl . idAC. idAH. idBH " 


move. w 

add.w 

add.w 

lSl.w 

3Ut).W 

asr. w 
move . w 
asr . w 
move . w 
asr .w 
move . w 


<iaddr3).d0 

dO.idAH 

dO.idAG 

•3.d0 

dO.idBH 

•2. idAH 

idAH. (iaddrl) 

#2. idAC j 

idAC, (iaddr2) 

tl,idBH 

idBH. (iaddr3) 


; v«* (short *)addr3 
; dAX*«v 
; dAG*«v 

; 8v 

■ dfiH-»6v 

■ dAH>>a2 

•(short • )addrl=dAH 
d*C>>»2 

•(short # )addr2*dAG 
dBM»sl 

•(short Meddr3=dBH 


endm' 







macro 






Bwd 


ibaae, i end, tine 




moves . 1 


&base,aO 


; addrO abase 


move. X 


iinc.dO 


? dO«inc 


aar.l 


• 2,d0 . 


; d0«lnc>>2 


moves . 1 


a0.a3 


■ addx3»addr0 


suba.l 


d0,a3 


addr3-» (inc>>2) 


moves. 1 


a3.*2 


addr2»eddr3 


suba.l 


d0,*2 ; 


addr2-» (inc>>2 ) 


movea. i 


a2.al 


addrl»«ddr2 



cuocTinrrr cucrr torn r o<n 
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suta . 1 


dO . a 1 








: adcrl *= unc»J ) 


EwdStarcC 


aO . d4. d5 


. d** 






: 5wd5cart0idddxC.dAC.dAH.dBH) 


adda. i 


« inc , a 1 








; addrl* sine 


BwdStarr 1 


al.a0.d4 


.d5.d7 






: 3wdScarcl(addr:.addx0.dAC.dAH.dBH) 




4inc.a2 










=wc£ven 


a2.d4.d3 


d6.d7 






: BvdEven<addr2.ciAC.dAH.dBC.dBH> 


adda . 1 


iinc . a j 








* addr 3 ♦sine 


BwdOdd 


a j . al . a 1 


d4.d5 


. c6 


■ <■* • 


BwdOdd ( addr 3 . addx2 . addr 1 . dAG , dAH . dBG 


adda. 1 


4 inc . aO 








addrO* »inc 


swdEven 


aC.d6.dl 


d4.d5 






BwdCven ( addr 0 . dBG , CBH . dAG . dAH ) 


adda.l 


4 inc . al 








addr 1* = inc 


cwdOdd 


al.a0.a2. 


d6.d7 


,d4. 


d5 ! 


BwdOdd ( addrl . addrO . addr 2 . dBG . dfiH . dAG 


adda. 1 


4inc .a2 








addr2*slnc 


r.-npa. 1 


a2. 4end 








addr 2 < end 


bgt .s 


9dc 








while 


BwdEnd2 


a2.C4,d5.d7 






Bwd£nd2 iaddr2.dAC.dAH.dBH) 


adda.l 


4inc,a3 








addr 3* » inc 


BwdEncU 


a3.a2.al,d4.d5 


,d7 




Bwd£nd3 ( addr 3 . addr 2 . addrl , dAG , dkh . dB 


endm 













Bazic35i: TUNC EXPORT 



?s 




8 






daca 


DS.L 


1 






inci 


33. L 


1 






endl 


OS.L 


1 






inc2 


D5.L 


1 






«r.d2 


DS.L 


1 






• 


ENDR 










link 


a6, #0 


* 


no local variables 




movem. 1 


d4-d7/a3-a5.- <a7) 


* 


store registers 




movt. 1 


PS. inci <a6) ,d3 


* 


inc* inci 




movea . 1 


PS.data(a6) ,a5 


i 


baaesdata 


9 do 


move* . l 


a5. a4 


! 


«nd»bas« "* 




adda. 1 


FS.endl <a£) ,a4 


• 


end* « end 1 




Bwd 


a5.a4.d3 


* 
# 


Bwdlbaae,end, mc) 




adda . 1 


?S.inc2(a€).a5 




baae*»inc2 




cmpa. 1 


PS.end2(a6).a5 




end2>basa 


• 


blew 


edo 


* 


tor 




movem. 1 


ia7) * t d4-d7/a3-a5 . 




restore registers 




unik 


a6 




remove locals 


• 


rts 






return 




DiDFUNC 









macro 
BvdScartVO 

move . 1 
move . 1 
neg.l 
move . 1 
add.l 



4 addr 0 . 4dAC, 4 dAH. 4dBH 



(4addr0) . 4dAM 
& dAH. & dAG 
4 dAG 

4 dAH. td&H 
4dfiH.4dBH 



dAH»* (shore *)addr0 

dAC.v 

dAG a -dAG 

dBH*V 

dBK«v«l 



endn 



macro 

BwdScartVl t addrl . taddrO . 4dAC . 4 dAH , 4dBH 



ci lOcriT! rrr cuccr to\ neon 
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mcve . 1 
asr . 1 
add. 1 
add. : 
sub. 1 
add. 1 
add.l 
add.l 
sub. 1 

asr. 1 
add.w 
asr. w 
Tiove . 1 

endm 



uaddrl i ."do 
dO.di 
• l.d: 
dl.idBH 
dO . 4dAC 
dO . 4dAK 
dO.dO 
dO . 4dAG 
dO.dO 
dO. 4dAH 

#1.4dBH 

tdSH.&dBH 

•l.idBH 

&dBH , I4addx0) 



v= • ( short 'laddxl 
vssv 

V3*V>>1 

dSH*« ■/>>; 

dAC*«v 

dAH-rv 

v«=l 

dAC*s2v 

*/<<•! 

dAH-*«v 

dBH>>*l 

shift word back 
dBH>>al 

•(shore • ) addrOrdBH 



macro 
BwdEvenV 

move. 1 

move. i 

move. i 

neg. 1 

add.l 

add.l 

add.l 

add.l 

add.l 

add.l 

endm 



4 addr 2 . 4dAC . idAH . 4dSC . 4dBH 



<&addr2) .dO 

d0.4dBH 

d0.4dBC 

4dfiG 

dO.&dAH 

dO.tdAC 

dO.dO 

d0.4dAH 

dO.dO 

dO,4dAG 



vsM short •)addr2 

dBH.v 

dBG«v 

dBC.-v 

<3AH*.v 

dAC»»v 

2v 

dAM~«v 

2v 

dAH~>v 



macro 

BwdOddV 

move . 1 

add.l 
add.l 
add.l 
sub.l 
add. 1 
add. 1 
add.l 
sub. 1 

asr. 1 

lsl.w 

asr. v 
move. 1 
asr. 1 

lsl.w 

asr. v 

move. 1 

endm 



& addr 3 , 4 addx2 . 4addr 1 . 4dAC. fcdAH . 4dBG ._4dBH 
(4addr3).d0 ; v«*( short *)addr3 



d0.4dAH 

dO,4dAG 

dO.tdBC 

dO.4<0BH 

dO.dO 

d0.4dBC 

dO.dO 

dO.tdBH 

• 2,4dAH 

#2,4dAH 

#2,4dAH 

4dAH. Uaddrl) 

•2,fcdAG 

#2,4dAG 

4dXC, (4addr2) 



dAH*«v 
dAG~»v 
dBG*«v 
dEH-sv 
2v 

dBG*«v 

4V 

dBH-*4v 
dAH»«2 

shltt word back 

dAH>»2 

M short • )addrl«dXH 
dAG»»2 

shift word back 
dAG»-2 

•< short •)addx2rdAC 



macro 
Bvd£ndV2 

m?ve 1 



t addr 2 . 4dAC , idAH . 4dBH 

/ i »d4r2 > . dO : 9 ' sh^rt • i ad«ir2 
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dO.idAH 


ace. : 


dO.idAC 


add.: 


dO.dO 


T.OV€ . 1 


dO.idBH 


add. 1 


dO.idAK 


add ' 


dO . dO 




dC . fcdAG 


encm 




macic 




BwdIndV3 


&aoox J . a&aar* . a 


* 

move . 1 


( & aodr J ) . ao 


add. I 


dCidAH 


add.l 


dO.idAG 


lsl.l 


t3.d0 


sub.l 


dO.idBH 


asr.l 


•2 . tdAH 


lsl w 


#2.4dAH 


asr .w 


•2.4dAH 


move. 1 


4dAH. uaddrll 


asr . 1 


#2.&dAG 


lSl.w 


»2.fcdAG 


asr .v 


■2.4dAC 


move. 1 


IdAG. Uaddr2t 


asr.l 


• l.idBH' 


lsl.w 


M.tdBH 


asr .v 


•l,idBH 


add.l 


IdBH . tdBH 


move. 1 


idBH. (iaddr3) 


• 

endm 




macro 




BwdV 


kbasc. tend. tine 


» 

move* . 1 


ibace.aO 


move . 1 


ixnc.dO 


asr.l 


• 2.d0 


tnovea . 1 


a0.a3 


suDa . : 


d0.a3 


movea . 1 


a3,a2 


suba . 1 


d0.a2 


move a . 1 


a2.al 


suba . 1 


dO.al 


BwdStartVO 


a0.d4.d5.d7 


adda . 1 


&inc.al 


BwdStartVl 


al.a0.d4.d3.d7 


adda.l 


tine. a2 


9 do BwdCvenV 


a2. d4.d3.d6.d7 


adda.l 


ainc. *3 


BwdOddV 


a3.*2.al.d4.d5. 


adda.l 


fcinc.aO 


BwdBvenV 


a0.d6.d7.d4.d3 


adda.l 


iinc.al 


BvdOddV 


al.a0.a3.d6.d7. 


adda.l 


tlnc.*2 


cmpa. 1 


•2,i«nd 


bot.s 


0do 


Bvd£ndV3 


a2,d4.dS.d7 


adii.: 





dAH »:v 
dAG**v 

2v 

dBHs2v 

dAH*»2v 

4v 

dAG*s4v 



v=M short *)addr3 

dAH*»v 
dAG*»v 

8v 

dBH-sev 
dAH>>=2 

shirt word back 
dAH>>«2 

•(short •»addrl«dAH 
dAG>>»2 

shift word back 
dAG>>«2 

* ( short * I addr 2 »dAC 
dfiH»«l 

shift word back 

dAH>>»2 

dSH«»l 

•(short 'laddrSedBH 



addrO»baae 

dOsinc 

d0«inc»2 

addrJsaddrO 

addr3*« ( inc>>2) 

addr2»addx3. 

addr2-« ( inc>>2) 

addrl«addx2 

addrl-* ( inc>>2 > 

BwdSt ar t 0 ( addrO , dAG. dAH. dBH) 

addxl*»ioc 

BvdStart 1 ( addrl . addr 0 . dAG , dAH . dBH ) 
addr2*«inc 

BvdEven i addr 2 . dAG, dAH. dBG. dBH) 

addr3*«iac 

BwdOddladdrJ . addr 2 . addrl. dAG. dAH .dBG 

addrO*«inc 

BvdEven I addr 0 . dBG . dBH . dAG . dAH ) 
addr 1 ♦ ■ inc 

BvdOdd ( addr 1 . addr 0 . addr 3 . dBG . dBH . dAG 

addr2**inc 

addr 2 < end 

while 

Bvd£nd2 ( addr 2 . dAG . dAH . dBH) 

i£dr3-«ir.c 
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EvdLndV} 



a3.a2.al. 44. d3.d7 



EvcEr.dj '«acdr3 . adcr 2 . addr 1 . dAC . dAH . dG 





BackJSHV F'JNC 

• 


EXPORT 


?S 


PXCCRT 


5 


oaca 


DS . U 


1 


incl 


OS.L 


1 


end J. 


DS.L 


1 


inc2 


DS.L 


1 


end2 


OS.L 


X 


• 


QJDR 






1 ink 


ao , «0 




mo vent* » 


c4-d*?/a2-a5. - < 




move . 1 


PS. incl <a6) .d3 




move a * 1 


PS data (a6 ) - aS 


3 do 


movea.l 






adda.l 






BwdV 








PS.inc2(a6).a5 




cmpa. 1 


PS.end2(a6) .aS 


• 


blew 


edo 




moves. 1 


( a / > * , o4-o '/a j 




unlk 


a6 


* 


rts 












macro 






BwdScartH 


taddxR, &A. fcC 




move. 1 


# p ^ ^ _ 9\ % m & 

( taodrR) &A 




move. 1 


(A. d0 




move. 1 


LA, 4C 




add.w 


kA. dO 




add.w 


do . 4A 




add.w 


r ft Jkf\ 

iA. Cv 




swap 




* 


sub.l 


60, kX 




endre 






macro 




• 


EwdCycleH 


taddrX.taddrW.i 




move . 1 


(.addr*)-,.S 




move. 1 


•B.dO 




add.l 


dO.dO 




move.l 


d0,dl 




add.l 


•B.dO 




add.l 


dO.dl 




move . 1 


&B,d2 




move. w 


dl.d2 




move.w 


48. CU 




move. w 


dO..B 




move.w 


dl.dO 




swap 






swap 


dO 



; no local variables 

; score registers 

; inc=incl 

.- basesdaca 

; endabase 

; end+=endl 

; Bwdlbase.end. inc) 

; bate*-inc2 

: end2>base 

; for 

; restore registers 

; remove locals 

; return 



; lHlC-Mlong *)addrK 
; A.1H1C, dO.lHlC 
; A.1H1G. dO.lHlC. C°1H1C 
; A-1M1G. dO«lH2G, C«1H1G 
; A.1H3C, dO=lH2C, C»1H1G 
; A=1H3C. dO.lHSG. C=1H1G 
; A.3GH1, dO.lHSG. C-1H1C 
; A.AAAA, dO-lH50. CslHlG 



lHlG-Mlono; *)addrR 

B.iHIG, dO.lHlC 

B«1H1G. dO«2H2G 

B»1H1G, dO«2H2G, dl»2H2G 

B.1H1C, d0«3H3fc. CU.2H2C 

BrlHlG. d0-3H2G. dl=5H5G 

B-1H1C, dO«3H3G, dl»3H3G. 

B.1H1C, dO-3H3G, dl-5H5C. 

B.1H1G. d0»3H3G. dl-5HlC. 

B.1H3G, d0»3H3G, dl«3HlG. 

B-1H30, d0.3HlG. dl.SHlG, 

B*3C1H. d0*3HlG, dl»SHXC. 

B.3C1H, dOslGJH, dl>SHlG. 



d2»lHlG 
d2»lH5C 
d2=lH5C 
d3»lH3G 
d2=lH5G 
d2*lH3G 
d2*lH5G 
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sub. 1 
add.l 
add. 1 



d2.4B 
d0.4A 
dl.4A 



B*3C1K-1H5G 
A»=iH3C 



asr .w «2. iA : A0>>=2 

movc.w &A, 4C ; C complete 

•sr. 1 *2. tA ; Al>>«2 

move.. *C. Uaddrwi* ; *(lcng •JaddrWsDD 

move.! AA.fcC ; C=A1XX 

endm 



macro 

fiwd£ndH iaddrR. iaddrW, tA. &B. &C 



move . 1 


(4addrR)».dO 


; IHlGs* (long •> addrR 


move . w 


d0,d2 


; d2olC 




lsl.w 


»2.d2 


; d2 = 4G 




neg.w 


62 


; d2=-4G 




swap 


dO 


; dOslClH 




add.w 


d0.d2 


; d2*-lH 




move . 1 


dO.dl 


; dOslClH. 


dlslClH 


add.w 


dO.dl 


; dO=lClH. 


dlslC2H 


add.* 


dl.dO 


; dO=lC3H, 


dl=lC2H 


add.w 


dO.dl 


- dO«lC3H. 


dl=lC3H 


swap 


dl 


■ d0.1G3H. 


dl«5H!G 


add.l 


d0.4A 


A*»1G3H 




add.l 


dl.&A 


A*-5H1C 




aar .w 


♦ 2.4A 


Al>>«2 




move.w 


tA.AC 


C coop let e 


asr. 1 


• 2.LX 


A0>>«2 




move. 1 


iC. (fcaddr*)* 


• (long • 


)addr**C 


move.w 


d2.*A 


A.D1D2 




move .1 


kX. uaddrVfi* 


•(long • 


laddrw.A 


endm 









macro 




BwdH 


Abase. ter.d. line 


movea . 1 


Abase, aO 


movea . 1 


aO.al 


BwdStartH 


aC.d3.d3 


BwdCycleH 


a0.al.d3.d4.d5 


BwdCyc leH 


aO.al.d4.d3.d3 


cmpa.l 


aO.Aend 


bgt.a 


0do 


BwdEndH 


a0.al,d3.d4,d5 


endm 





addxR«ba»e 

addrV«addr* 

BvdStaxt (addrR.A. DO) 

BwdCyc le I addrR. addrw. A . B. C > 

BwdCyc le ( addrR. addrw. B. A. C) 

addr2<end 

while 

Bwd£nd < addrR . addrw, A. B. DD) 



BacK3511K FUNC EXPORT 

PS RECORD 8 

data DS.L 1 

incl OS. L 1 

endl DS.L 1 

inc2 DS.L 1 

end2 DS.L 1 
ENDR 



1 in* 



an 



lc*el variables 
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Page : 



d4-d*?/a3-a5. -ia?) 



score registers 



3do 



rrcve . i 
move* . 1 
.T©ve» . i 
add a . I 
BwdH 
adda. i 
cmpa . X 
blew 

Tovtm. 1 

unlk 

res 



PS. inc; :a6) .d3 
PS. data <a6 ) . a5 
a*. *4 

PS. end! ia6) . a4 

?S.:nc2 fat) .aS 
PS.cnd2 ia6) ,a5 
edo 

<a7) * ,d4-d7/a3-a5 
a6 



ir*c=incl 

base»data 

end»baee 

end* rendl 

Bwd( base. end. inc) 

base*-inc2 

ond2>base 

ror 

restore registers 
remove lccala 
return 



ZNDFUNC 
2ND 
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£> Ccpyright 1993 KLICS Limited 
Ail ngncs reserved. 

written by: Adrian Lewis 



• Full still/video Knovles -Lewis Image KlicsEnccdc System utilising KVS property 

• ar.a delta-tree coding 

• Recoded and re- rat ionalised (Stand alone version) 



•include <rixJHath.h> 

■include •BicaJ.h" 

•include -Klici.h- 

•include -xlicsHeader . h" 

•include -KlicsEncode . h* 



•include <Mach.h> 

/• it bool true che nagate value •/ 

•define negif (bool. value) < tbool) ?- (value) : (value)) 

•define aba (value) negif (value<0 . value) 

extern void HaarForvardt ) ; 
extern void Daub4P orwardl ) ; 

/* Use the bit level file macros (Bits2.h) 
buf.use; •/ 

/• Huffman encode a block •/ 
fdefine Huf fEncLevUev.buf ) \ 

Huf f Encode ( lev (0] .buf ) ; \ 

Huff Encode (lev (1) .buf ) ; \ 

Huf f Encode(lev(2) .buf ) : \ 

Huf f Encode ( lev (3 ) ,buf ) ; 

/• Fixed length encode block of integers */ 
■de£ine intEnc Levi lev. Ipf^biti .buf ) \ 

IntlncodeilevfOJ . lpf_bits.buf ); \ 

IntEncode(levtl) , lpf.bita.buf ); \ 

Int£ncodellev(2] . lpf.bita , but > ; \ 

Int£ncode(lev{3) . lpf .bits. buf ) ; 

/• Define write a xero •/ 
•define ToxenO V 
buf_vinc(buf ) ; 

/• Define write a one •/ 
•define Tokenl \ 

buf. set (buf) ; buf.winctbuf ) ; 

/* write block for date and update memory *' 

tdefine DoXf ertaddr. pro, lev. oat. mode. oct.nmode. buf ) \ 

HuffEncLevUev.buf ); \ 

PutDataladylr.pro.dat); \ 

mode [ oc t ) • oct ■•0 7H.STOP : anode ; 

' • Tunc: i?n Nan*.*: C*Jtnt i te 



ci ioctitj rrc supft mu\ F 9K\ 
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description: H.261 style Quantizer 
Arguments: new. old - linage blocks 

pro. lev - returned values 

q - quantizing divisor 
Keturns: lev is all zero, quantized data (pro! 6 level (lev) 



Bcclear. Ouantnecnc nev(4J, int old[4). int proH). int iev(4]. snore gj 

int blk. haif_q=(l<<q)-l»l; 

Ecr<blks0;blk<4;blk**» < 

int data*new(blk) -oldfblk), 
mag_level *&bs (data) >>q; 

1 e ve 1 =mag_ i e vel > 1 3 5 ? 1 3 5 : mag_ 1 • ve 1 ; 
lev(blk)»negif idata<0. mag.level) ; 

pro [blk) =old [blk )*negif (data<0. <mag_level«q)* (mag.level i *0?nalf_q: 0) i ; 

l 

return (pro{0) ==0 &t pro(l]»=0 fc& pro(2]«s0 &l pro(3]**0); 

) 

void QuantizeLPFfint new (4]. int pro 1 4], int levf4], short q) 

( 

int blk. half.q-U«u) <-!»!; 

fcr(blk«0;blk<4;blk**) ( 
int data»nev(blkl , 

mag_levelsaba (data) >>q; 

lev[blkjsnegif (data<0.mag_level) ; 
pro ( blk J a ( lev ft IX] <<q) ♦bal£_q; 

) 

) 

/* Function Nome: CuesaOuantixe 

* Description; Estimate threshold quantiser value 

* Arguments: new. old - image blocks 

* q - q weighting factor 

* Returns: estimated q_conat 
v 

float CuessOuantizefint new (4). in;: old(4). float q) 

( 

int blk; 

float qt_ma>s0.0; 

tor(blks0;blk<c4;blk*«) ( 

int i, dataaabs I nev(blk) -oldfblk) ) ; 
float qt ; 

xor(iaO;datal*0;i«"») data>>»l; 

if ti>0) i— : 

qt«(( (3«i)-l)»l)/Ql 

qt .max «qt_max>qt ?qt - max i qt ; 

J 

return ( qt_jnax) ; 

} 

/* runction Name: intEncode 

* Description: Write a integer to bit flit 

* Ar;ur«£ncs: lav - integer to write new signed 
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bits - no of bics 

void Ir.ttncode ( int lev. in: mts.Buf buf) 

{ 

C-li vers :cn 
ir.c : : 

for ( i=bics-l ; :> = 0; i-- ) ( 

it (levfcil<<xii buf.aet (buf ) ; 
buf _wmc i buf i : 

' ) 

•/ 

/• New version 

int i. mag»abs I lev) ; 
Boolean aicnslev<0; 

if ll<<bics-l mag) mag« ( l<<bits-l) - 1: 
ir (sign) buf .set (but ) ; 
buf. wine l buf ) ; 

for ( i»l<<bits-2; i!*0; i>>«li ( 
it (mag&i) buf.set (but ) ; 
buf. wine t buf ) ; 

)•/ 

/• Hardware ccwpatable version: sign mag I lsb->msbJ •/ 
int i. mag*a£s llevi ; 
Boolean sign»lev<0; 

if (l<<bits-l <* mag) raag»( l«<bits-l) -1; 
if (sign) buf.set ibuf ) ; 
but .wine Itwf ) ; 

for(ial;i*al«t5its-l;i«rl) ( 
if (magfci) buf.set (buf ) ; 
buf. wine (buf ) ; 

) 



/• Function' Name: HuffEncodeSA 

* Description: write a Huffman coded integer to bit file 

* Arguments: lev - integer value 
Returns: no of bite used 

* t 

void Huff encode (int lev. Buf buf) 

/• int level«abs(lev) ; 

if (level>l) buf .set (buf i ; 
buf_winc(buf i : 

if(level>2 ll level««l) buf.set (buf ) ; 
buf .wine I buf ) ; 
if (level!«0) { 

If (lev<0) but.set (buf ); 

bu f. wine (buf ) ; 

if (level>2) ( 
int i; 

for (i>3;i<lev«l;i**> ( 
buf_winc(buf i ; 

) 

buf. set (buf); 
buf. wine (buf) ; 
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• New versicn */ 

int ievei»abs (lev) . i; 

if (level izO) buf _set (buf ) ; 
tuf_winc<fcu!» : 
if (level!=0> ( 

if (lev<0) buf.set (buf ) ; 
buf_winc(buf J ; 
if (level<8) ( 

while (l<level--) 

buf.wific I buf ) ; 
buf.aet (buf 1 ; 
buf _winc(buf J ; 
) else ( 

for (i«0;i<T; 

buf.winclbuf I ; 
level-s8; 

forti»l«<6;ii»0;i>>»l> ( 

if (levelai) buf.set (buf ) ; 
buf. vine (buf) ; 

) 

) 

) 

> 

Function Name: KlicaEChsjunel 
Description: Encode a channel of image 
Arguments: arc * source channel memory 

dec - destination memory (and old for videos) 
octs. size - octaves of decomposition and image dimensions 
normals - KVS weighted normals 

lpf_bits - no of bits for LPF integer I image coding only) 

void KlicsEncY (short •sxc. short "dst.int octs,int 3iz"e(2].inc thxeshfSl. int ca 

( int oct. mask. x. y, sub. tnp. 3tep.J«c«octs. blk(4), model*], ns. no. base, 
int addr(4). new(4). cld(4]. pro|4], lev!4). z«ro(e]-(0. 0.0.0); 
Boolean nzflag, noflag. origin; i. 
int bi tmask»-l<«kle->3eqh. precis ion -kle->f nnb. quant ixer 10 j-l. 
Buf but »fckle->buf : 

ior iy-0:y<size[ 1] ;y»estep) 

for ixaO:x<siie[0) ;x*«step) 

torisuba0;sub<4;sub**) ( 

mode [ oc t soct s - 1 ) -base.mode ; 

if (tub»»0) mode toct=octs-l] !• M.LPF; 

masks2<<oct ; 

do ( 

GetAddr (addr.x.y. sub, oct. size, mask) ; 
twitch (modal oct) ) ( 
case M.VOZO: 

Get Data (addr.old.dat) ; 

if (Blkiero(old) ) modeloct}»H_STOF; 

else ( Dolsro(addr. dst. mode. set) ; ) 

break: 
case H.SCKDIK^STXIX: 

GetPata (addr . new, ere) i 

nz*Decide<nev>; nxf lag«nx<*thresh(ccts-oct ] ; «m , 

if tnzflag M Ouantize (new. zero, pro. lev. kle->tnnh. quantizer (octs-oct) ) 
CetDate'.&ddr.cli.dst ) ; 
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it tSUZeroiold) > ( 
TokenO; 

mode ( oct )»M.STOF; 
else ( 

7e<enl; Tojccnl: 

Oclezoi addr . dst . rrode . occ) ; 

- else ( 

Tokenl: TokenO; 

DoXtert addr. pro. icv. dsc. mode, oct . K.SENDi H.ST ILL. bufl ; 

creak: 
case rt.SENO: 

GecData taddr. new. srci ; 
GetData ( addr, old. dst) ; 

nz = Dec;de mew) : nrclagsnx<»thre5hlocts-cct ) ; 

if iBlkZero(old)) ( . , 

if inrflag tl Quantize (new. xero, pro. lev. kie->frnh. quantizer [octs-o 

TokenO; 

mode [ oct )=M_STOP; 
) else ( 

Tokenl: TokenO; 

DoX f e r ( addr . pro . 1 e v . ds c . mode . oct . M.SZND 1 M.ST I LL . bu f ) : 

) 

) else ( 

int ot=Decide(old). no.DecideDelta (new. old) ; 

Boolean motion* (nz*ox) >>oct <« no; /• motion detection •/ 

no=DecideDelta (new. old) ; nof lag -no.: -compare [oct s- oct ] ; 
origin=nz<»no; 

if (Cncflag II motion) fcfc inxflag) ( /• was inoflag 4* inxfl 
if lOuantixef new. origin? xero: old. pro. lev, kle- >f ran. quantizer I o 

Tokenl; Tokenli TokenO; 

Do Zero ; addr. dsc . mode . oct ) ; 
) else ( 

if (origin) ( 

Tokenl; TokenO: _ s% 

Doxfer( addr. pro, lev. dst .mode. oct , M.SENDIM.STILL. buf ) ; 

) else ( 

Tokenl; Tokenl; Tokenl; 

Doxferi addr. pro. lev. dst .node. oct .K.SEND. buf J ; 

) 

) 

1 €l '* *if ((motion m origini *4 nzflagi < /• wes origin tt nxfla 
Tokenl: Tokenl: TokenO; 
DoZero ( addx , dst . mode . oct ) : 
) else ( 
TokenO ; 

mode (oct J «H.STOP; 

) 

) 

) 

break; 
case M.ST ILL: 

GetOaca ( addr. new. src) ; 

nx -Decide (new); nzf legsnx<»thresh(octs-oct ) ; _ < mmw , ....... n 

if (nsflag II Ouantise mew. xero, pre. lev. kle->frmh.qu*ntiaer (octa-oct ] ) 

TokenO : 

mode (oct ] »K.STOP; 
) else ( 
Tokenl ; 

Confer (ocir . pre . lev. dst . . r tt . M.rrriL. Suf : : 
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i 

break; 
case M.LffiM.STILL: 

GetData i addr . new. srci ; 

Qu&nziztLPT t new. pro. lev, kle->f rmh .quant izer [0 ; i ; 
Veri fyData ! lev(O) . bicmask. :mp) ; 
Yen fyData i l*vf i) . bitmask. :mpl ; 
veri fyData ' lev(2 1 . bitmask. :mpl 
vera fyData ; lev? 3 ) . citmaax. tmp) : 

Inc£ncLev< lev, kle- >aeqn. precis icn-kle->f nnh. Quantizer ( 0] . buf ) ; 
?uc Data (addr. pro. dst) ; 
rrcde(OCt ]=H_QUIT; 
break; 
cast M.LPPIM.SEND: 

GetDaca (addr. new. arc! ; 
GetData (addr, old. dst J ; 

nc=DecideDelta tnev.old) ; nof lag*no<scomparelocts-oct ) ; 
if (ncflag) ( 

TokenO; 
) else ( 

Tokeni ; 

Quantize (new. old. pro. lev. kle->f rmh. quantizer (0) ) ; . 
Huf f EncLev < lev . buf ) ; 
Put Dat a < addr . pro . dst ) : 

) 

mode (oct )»M_0UXT; 
break; 

switch(mode(oct} ) ( 

case M.STOP: * 
StcpCounters (mode.oct .mask.blk.x.y, octs) ; 

break; 
case K.QUIT: 

break? 
default : 

DownCouncera (mode, oct . mask. b lk> ; 
break: 

■ ) 

) while (mode [oct )!»M_0OIT); 
) 

] 

void KlicaEncUVi short "arc. short 'dst.int octa.int size(2].int tnresh[5). int c 

* inc oct. mask. x. y. X. Y. sub. top. 9tep*4«octs, blk(4). mod*f4). nr. no 
int addx(4], nev(4). old(4). pro(«). lev(4). zero!4)»<3. 0. 0. 0) ; 

Boolean nzflag, noflag. origin; 

Int bicaask»- l<<kle*>»eqh. precis ion-kle->£rwh, quantizer (0) -1; 
Buf buf «Akle->buf; 

for tY«0;Y<size(l];Y*»atep) 

for ix«0;X<sizeI0] ;X*»stepi 

forty»Y;y<size[l] « y<Y*»tep;y»step»l> 

for<x»X;x<aize{0] £4 xOUstep;x**atep»l) 

for < suJbsO; sutx4 ; sui»* ) ( 

mode ( oct »oct a- 1 J ■baae.flode ; 

if Oub*-0) mode (oct»octa-l) i« M.LPF; 

mask«2<<oct; 

do ( 

CetAddr (acVlr.x.y, sub. oct .size* mask) ; 
switchtmodeloct] ) ( 
case H.VOZO: 

GetData (addr. old. dst) : 



WO 94/233« 



PCT/GB*4/00677 



- 798 - 
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it (BUZeroold) ) modeioc: J =m_STCP: 
else t DcZerotaddr .dst. mcce.occ : ; ) 
break; 
case M_SD?DIM_STILL: 

GecDataiacdr.new.src) : 

n:=Dec ideir.ev) ; nzi lagsnz<=cf:resh(ccrs-oct I ; 

: £ i.nzfiag »'. Ouantize mew. zero, pro. lev. kle- > trrtfi. quant i zer (octs-oct J ) 
Cet Data (addr. old, dst) ; 
if (BUZeroiold) ) i 
TokenO; 

mode (oct )»M_STOP; 
} else { 

Tokenl; Tokenl; 

DoZerol addr. dst. mode, oct; ; 

) 

) else { 

Tokenl; TokenO; 

DcX t er l addr . pro . lev. dst . mode . oct . M_SEND I M_STILL. bu£ J ; 

) 

break: 
case M.SOTO: 

GecDacai addr, new. arc) : 

CetData* addr. old. dst) : 

nr»Decadetnevi : mi lagsnz<sthresh(octs-oct J : 
if (BlklerofoldM ( 

if inxflag II Quantize Inev. tero. pro. lev. kle->f rmh. quant* xer locts-o 
TokenO; 

mode (oct )*M_STOP; 
) else ( 

Tokenl; TokenO; 

Doxf er t addr . pro . lev. dst . mode . occ . M_SEND I M.STILL. tut ) ; 

) 

) else ( 

int oisDecidefold) . nc=DecideDelta(nev, old) ; 

Boolean mot ions <nz*ox ) >>occ <■ no; /• motion detection •/ 

no«DecideDelta inev,old) ; nof lag «no<«c empire (oct s -oct) ; 
origin=ni<»no; 

if (Unoflag II motion) 44 inxflag) { /• w«a rnoflag 4* :nxfl 
if (0uan.ti2einew.oricin?jexo:old.pro. lev. kle->f rmh. quant xxerlo 

Tokenl; Tokenl; TokenO; 
. DoZexo (addr. dst. mode. oct ) ; 
) else ( 

if (origin) ( 

Tskenl; TokenO; _ # . _ M t 

Dexter addr . pr c . lev , dst . mode . oct . M.SENO I h_ STILL, buf I ; 

} else i 

Tokenl; Tokenl; Tokenl; 

DoXf er ( addr . pro . lev , det . mode . oct . M.SEND. buf ) ; 

) 

) 

1 * " if ((motion II origin) 44 naflag) ( /• was origin 44 nzfla- 
Tok«rU; Tokenl; TokenO; 
DoZcro ( addr . dst . mode . oct ) ; 
) else ( 
TokenO : 

mode (oct )»M_ STOP; 

) 

) 

) 

break; 
?ise K. STILL: 
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Ge*Deca < addr . new. srcj ; 

nz»Decide imw) ; mf lag»na« "thresh I octs -oct ] ; 

if (nxflag l I Quant ire (new. 2ero.pxc. lev. kle->frmh. quantizer (occs-occ ! 
TokenO; 

mode ( occ ) »M_STOP; 
i else { 

Tckenl; 

DoXfer (addr. pro. lev, dst. mode. oct .M.STILL. bu£) ; 

1 

break; 
case H.LPFIM.STILL: 

GetData ( addr. new. arc) ; 

Ouant iaeLPFlnew.pxo. iev. kle->frmh. quantizer {01 ) : 
veriiyDacallev(O) .bitmask. crap) ; 
veriryData(levCl) .bitmaak. ur^) ; 
verifyData( lev(2] . bitmask. top) ; 
verifyDatadevf 3] .bitmask. cnp) ; 

:ntEncLev{lev,kle->5eqh.preciaion-kle->innh.quanciter(0J ,bu£) ; 
PutDate(addr.oro.dut) ; 
mode (occ 1-H.OOZT ; 
break; 
case H.LPriM.SQJD; 

GetData ( addr. new, src) ; 
GetData(addr. old.dat ) ; 

nocDecideDelca(new,old) ; nof lag*no«*con©are (octs-oct ) ; 
if i no flag) ( 

TokenO; 
) alee t 

Tokenl; 

Ouantiia <naw, old. pro. lev, kie- >frmh. quantizer CO 1 ) r 
Huf ftncLevtlev,bux* ) ; 
PutDatat addr. pro, dst) ; 

) 

modetoctl-H-OUXT; 
break; 

) 

switchfmodefoct] ) ( 

case H.STOP: 

StopCounters (mode, oct .mask. blk,x.y. octs) ; 

break; 
case H.QUIT: 

break; 
default: 

DownCcunters (mode. occ. mask. blk) ; 
break; 

) 

) while (mode I occ ) !=M.0UIT); 
) 

) 

/• index to quant and vice versa •/ 

•define i2q(i) { float ) i*HISTO.DELTA/ ( float ) HISTO 

•define q3i(q) Fix2Long (X2Fix(q* (float )KISTO/HISTO_DELTAi J 



rune t ion Nimi LookAhead , 

Description: Examine base of tree to calculate new quant iter value 

Arguments: arc - source channel memory 

dec - destination memory (and old for viaeosi 

octs. sise - octaves of decon^oeition and image dimensions 

norms - base HVS weighted normals 

Returns: calculates new quant 
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LcokAT.eadi short -src. short -jjst.fiiat r.crms 1 51! 3 i . KUcsE klel 

x -t x y sub. index, size f 2 ] = < Vie- >seqh. sequence.* ize {C ] . kle->seqh . sequtn 

tfcreahlHISTO). quact [HISTO J . target: 
int newMl. oid(4l. addrUl, zero { 4 ) = ( 0 . 0 . 0 . 0 1 : 

float -jant; 

for Iincex.O; index<HISTO: index — ) ( 
chrt«hUndex]=0; 
quact I index 1 «0; 

i or(y»0:y<site(l] ;y.2<*octS) 
for(xsO;xcsiae(0] ;x*.2<<octs) 
£ or i subs i .* sub< 4 ; sub** ) < 

float q_thresh; 

int nt. no. oa. blk; 

Boolean or flag, origin, motion: 

GctAddr (addr.x.y.sub.octa-l.aire. l<<octs) ; 

Cat Da t a < addr . r.ev. arc ) ; 

Gee Data t addr . old. dat ) ; 

nzs Decide (new; ; 

ozaDccide (old) ; 

no*DecideDelta<nev.old) ; 

erf lagskle->«ncd. intra it Blk2ero<old) ; 

originonzcsno; 

motion. (nx*ox)»oct a <■ no; 

q_thresh.<f 1 oat inx/Dac ideDoublet norma ( II [•II; 

if torflag II origin) < fll roll . 

float qt-CueaaOuantixeinev. aero, noma [1] [Ol ) . 

q_ threah»q_thxeah<qt ?q_ thrash : qt ; 
* Cl float qt«CueaaOuanti»e (new, old, norma I 1) (01 1 : 

c^thxeflh«q_threan«qt?q_threah:qt; 

if timotion) [ ,,,tin 
qt ■ ( float )no/DecideDoublt inorma 1 1 ] [2 ) > . 
q_chreah«q_thxeah«qt ?q_thxeah:qt ; 

) 

* ndex*a2i tq_thresh) ; 

Index. index<0?0:index>HIS7&-l?HISTO-l: index: 
rnreah I index) 

L ' £S I SK iiiSSl Si2 1 . inde,..HISTO- 1 ,0 : QU.ec ( index. 11), 
/• butter mist be sr.ater than btp r in tramm *' 

iSi!!lurtdex«HISTO U quact (index) /inde*»taroet> index-; 
quant »i2q( index) ! 

>cle->«ricd.utr!_Quant- (»<l«->«ncd. tnp_<ju»nt.<7uant ) /2.0i forward and reve 

U^^nrt;^IquMt•i2qUind•x•<^ailkl•-»*ncd.t»p_«Iuant))); / lorvara ana 

jae->encd.crevcuact=auacc ( Index!/ (index..0?l: UdexJ ; 



Function Name: Be»«Non»al* 
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~ Engineering : KlicsCode: CcmpP^-t : :<i;cs£nc . c 

Description; Calculates base hvs weighted normals 
Arguments: norma - storage for normals 

• Returns: wexgnred normals 

• / 

/c:d SaseNcrrjls ( : icat norms ( 5] 13 J . KiicsE kle) 

fleet base_ncrm[3)=(l.D,kle->encd. thresh. kle->encd. compare); 
int norm, oct: 

for tocc=0 ;oct<3; oct**) 

for ( norms 0 ;norxn<3 ; norm**) 

nerms[oct] [norm] » baa e_ncrm[ norm] • kle ->encd. base [oct ) * (float) il<<kl 



/• function Name: Normals 

• Description: - Calculates HVS weighted normals 0 quant 

• Arguments: norms - storage for normals 

• Returns: weighted normals and LPF bits 

void Normals (float base.ncrms ( 5] [3] . int threshfS] . int compare 1 5] . JtlicsE kle) 



int oct, i. norm: 

for<oct»0;oct<»kle->seqh.octaves(0] ;oct**) ( 

norm»Fi*2Lcng(X2ri*<baae_norms (oct] (0 ) *kle->encd. tmp_quanc ) ) ; 

nonrt»norro<171 : nora; 

for <is0;0!»<nerm*-3) ;!♦♦) 

norm»norra>>l ; 
switch (norm) { 
case 1: 

kle->frmh. quantizer (oct] »i; 
break; 
case 2: 

kle->frmh. quantizer (oct )»i+l; 

break; 
case 3: 
case 4: 

kle->frmh. quantizer (oct) «i*2; 

threshloct)srix2U5ng(X2Fi»(DecideDoufcle(base_norms(octl ( 1 ) *kle->encd. cnp.c; 
compare! oct )efix2U3ng(X2riicfDecideDcuble (base.norma [oct ] [2] •kle->encd. tmp_- 

ile->frmh.o^aJitixerlO)«kle->frn^.o^antiier(01<3?3:kle->frpii.o^antixer [0] ; 
/• minimum 4 bits of quant for lpf due to oynartic range problems •/ 

Boolean KlicsFlags (KlicsE kle) 

t 

Boolean skip-false; 

kle->encd.buf t«r-«kle->encd.bpf.in; 

kle->fnnh.flags»0* 

if (kle->encd.buf fex<0) 

kle- >«ncd. buffer "(h 
if tkle->encd. intra) 

kle- > rush, flags I- KTK.INTRA; 

e lee 

if lskip»kle->encd.buf_sv && kle- >encd. buff er>«kle->encd.buf_sixe) 
kle->fnnh. flags la KTH.5XXP; 

return (skip); 
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•unc: : zn Name; KlicsEncode 

De scrip: ion: Enccde a frame frcra YUV !de; :rans termed imaqe 

Arguments: sre - scurce ifiageoj 

ds" - •ransfcrmec cestir.acicn memory (and old for videos) 



cr.c :<i icsEnccde t short •src(3). shore *dst(3). KlicsE kle) 

floac base.ncrms f 5 )[3) ; 

int channel. thresh[5). compare (51; 

Bui bu£s4fcle->bux; 

buf _winit tbuf ) 

if (KlicsFlags (icle) ) 

kle->frmh. lengihsO; 
else ( 

tor i chajuiel*0:channel<kle->seqh. channels .-channel**) ( 

int Si re {2 ] * ( kle->stQh. sequence. si re f 0)>> < channel *=0?0: kle->segh. s 
kle->segh. sequence_si2e(l]» (channel »»0?0: kle- >seqh. su. 
area=sixe(0| •sired 1 . octs=kle->seqh. octaves (channel»»0?0: 

switch (kle- >seqh. wavelet ) ( 
case W7_Ilaar: 

Haar Forward! sre (channel) . sire. octs) ; 

break: 
case V/T_Daub4 : 

Daub4 Forward ( sre (channel) . size, octs ) ; 

break; 

) 

) 

BaseNormals (baa •.norma , klei ; 
if (kle->encd.auto_q &t ( kle->encd. intra* 
LookAhead ( sre [ 0 ) . dst ( 0 J . base_nortL* . kle ) ; 

else 

kle- >encd . tmp.quar.t »k le - >«ncd . quant ; 
Ncraa Is (base_ncrms» thresh. cenpa re. kle) ; 
for (channel »0; channel «kle-'seqh. channels; channel**) ( 

int size (2 J *<kle->seqh. sequencers ^.xe (01 >> (channel »»0?0 : kle->seqh. s 

kle->suqh. sequenee_s*2e (1) >> (channel »»0?0 : kle->seqh. sub.sai 
octsakle->segh. octaves I channel ««0?0: 1 ) ; 

if (kle-»encd. inert) 

KLZEAO(dst (channel) . siie(O) • sized) ) ; 
if ( channel «0i XI i c si^cr ( sre (channel J . dsr (channel) ,octs. size. thresh. c 
else KlicstnclJVt sre (channel] . dst (channel) , nets. size, thresh, compare, kle 

) 

b'jf.f lushlbuf) ; 

kle*>f mh. length»buf_size <bu? ) ; 
kle->encd.buf f er*«kle->irmh. length; 
if ( !kle*>encd. intra) 

kle->encd.prevbyxesskle->£n&h. length: 

) 

return (kle->f ran. length) ; 
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• S Copyright 1993 KLXCS Limiced 
All rights reserved. 

• written by: Adrian Levis 



Sequence and frame headers tor Klics-Encoded files 
High byte first 



rypedef strjet 

unsigned short 
unsigned char 

I KlicsHeader; 



descxipticn_length; /• Fixed 
veraicn_nu/nber(2) ; /• Fixed 



cypedef struct ( 

KlicsHeader head; 

unsigned short sequence_siie f3 ] ; 



unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
KlicsSeqHeader; 



channels ; 
sub. sample (2) ; 
wavelet; 
precision? 
octaves (2) ; 
reservedt*3] ; 



typedef struct i 

KlicsHeader head; 

unsigned long length; 

unsigned long 

unsigned char 

unsigned char 

unsigned short 
) KlicsFxa/ne Header; 



f rame_number; 
flags; 

quantiterlS]; 
reserved; 



/• Fixed 
/• Source 
/• Source 
/* Source 
/• Source 
/• Source 
/• Source 
/♦ Fixed 



/• Fixed 
/• Calc 
/* Calc 
/• Calc 
/* Calc 
/• Fixed 



Size of this or parent struc 
version and revision numbers 



Size and version of this str 
Luminance dimensions and nua 
Number- of channels: 3 - YUV. 
UV sub-sampling in X and Y d 
Wavelet used: 0 - Haax. 1 - 
Bit precision for trans font 
Number of octaves Y/UV inaxir 
Reserved for future use •/ 



Site and version of this str 
Length of frame data (bytes) 
Frame number intended for se> 
Bitfield flags: 0 - frame sx 
Quantiser shift values (octev 
Reserved for future use */ 



^define KFH.SKIF Oxi 
•define KFH_ INTRA 0x2 



Implementation notes : 

OuickTijte Must have KlicsFrameKeader. length set to a valid number 
Sun Must have KlicsSeqHeader in data stream 

Possible developments: 

KlicsFrame Header .quantizer 

Currently contains shift rather than stsp-size 

Different valuos for OV and CH.HG.GC sub-bands are not currently suppo 
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• KlicsEr.code resource file 



•include "Types. r* 
f include * Mpwrypes . r • 
•include " imageCodec . r* 

* • 

• Klics Compressor included into the applications resource file here 
•/ 

• defane kl icsCodecrcrwatName # Klics # 
♦define kl icsCcdecf ormatType 'klic* 



This structure defines the capabilities of the codec. Thare will 

prefcably be a tool for creating this resource, which measures the performance 

and capabilities of /our codec. 

•/ 

resource 'ede:' (129. 'Klici Codeclnf o - . locked) ( 

klicsCodecrormatName. /• name of the codec TYPE i da 

1. /• version •/ 

1. /• revision •/ 

'klic. /• who made this codec •/ 

0. 

codec In'cixres 32 Icodeclnf c Doe a 8 Icodeclnf cDoesTeirporal. /• depth and etc suppo 

codeclnfcDepth24 icodec inf eSec/uenceSens it ive, /• which data xormats do we uo- 

100. /« compress accuracy (0-255) ( 

100. /• decompress accuracy (0-255) 

0, /• nillisecs to conpress 320x2 

0. /• nillisecs to decompress 320. 

0, /• compression level 10-255) { 
0. 

32. /* minimum height */ 

32. /• minimum width •/ 
C . 

e. 

0 

resource • thr.c* (128. 'Klics Compressor *, locked) { 
c omp r e s s o rC ompone nt Type . 
k 1 icsC ode cformat Type. 

' kiic* , 

codeclnf oDoe>32 I codeclnf o Does 6 Icodeclnf oDoesTemporal. 

0. 

' cdec ' . 
128. 
' STR ' . 
128. 
' STR * . 
129. 
' ICON ' . 
128 



resource • STR • (1281 ( 
•Klics Compress* 
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Engineering :KlicsCode : Klics Codec: Kl^csEnccce . r 



escurce * STK ■ (1291 f 

•waveiec irar.sfcrm i mult iresoluc icn tree fcasec coding schema* 
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engineering :KlicsCcce : XI ics Codec : XI icaCeccde . r 
• :<licsDeccde resource ::le 



•include * Types. r" 
•mci-jce -MPVTypes . r • 
•include • IxageCcdec . r * 

Klics Compressor included inco the applications resource file here 



• define kl icsCodecFc mat Name 'Klics* 
■define kl lcsCodecFcrraacType 'klic* 



This structure defines the capabilities of the codec. There will 

probably be a tool for creating thi3 resource, which measures the performance 

and capabilities of your codec. 

resource 'edei' (129, * Kl ics Codeclnfo* . locked) ( 

kiicsCodecFormacNan*. /• name of the codec TYPE ( da 

/• version •/ 

1, /• revision •/ 

•klic. /* w ho nade this codec •/ 

ccciecInfoDoes32 I codeclnf oDoes 16 I codeclnf c Doe a 8 I codeclnf oDoesTemporal I codeclnfo 

0. 

codeclnf oDepth24 I codeclnf cSeouenceSensicive , /• which data formats do we un- 

100. /• compress accuracy (0-2351 ( 

100. /• decompress accuracy (0-253) 

0. /• milliaecs to congress 320x2 

C. /• milliaecs co decompress 320 

0. /• compression level (0-255) ( 
C, 

32, /• rainijmim height •/ 

35, /• minimum width */ 
C. 

w . 

) ; 

resource 'trine' (130. *Klics Decompressor* . locked) i 
d ec crnp r • s s o rC orapone nt Type . 
klicsCodecFormatType. 
•klic, 

codedr.fcDoes32 I codeclnf oDoes 16 1 codeclnf oDoesS I codeclnf oDoesTerapor a 1 Icodeclnfo 
0. 
cdec*. 
126, 
' STR ' . 
130. 
' STR ' , 
131. 
'ICON', 
130 

): 



resource 'ST* • '1301 ( 



WO 94/23385 



PCT/GB94/00677 



- 807 - 

CLAIMS 

WE CLAIM: 

1. A method of transforming a sequence of input 
digital data values into a first sequence of transformed 
5 digital data values and of inverse transforming a second 
sequence of transformed digital data values into a sequence 
of output digital data values, said sequence of input 
digital data values comprising a boundary subsequence and a 
non-boundary subsequence, comprising the steps of: 

10 running a number of said input digital data 

values of said boundary subsequence through a low pass 
boundary forward transform perfect reconstruction 
digital filter and through a high pass boundary 
forward transform perfect reconstruction digital 

15 filter to produce a first subsequence of said first 

sequence of transformed digital data values, said 
first subsequence of said first sequence of 
transformed digital data values comprising interleaved 
low and high frequency transformed digital data 

20 values; 

running a number of said input digital data 
values of said non-boundary subsequence through a low 
pass non-boundary forward transform perfect 
reconstruction digital filter and also through a high 

25 pass non-boundary forward transform perfect 

reconstruction digital filter to produce a second 
subsequence of said first sequence of transformed 
digital data values, said second subsequence of said 
first sequence of transformed digital data values 

30 comprising interleaved low and high frequency 

transformed digital data values, said low pass 
boundary forward transform perfect reconstruction 
digital filter having a fewer number of coefficients 
than said low pass non-boundary forward transform 

35 perfect reconstruction digital filter, said high pass 

boundary forward transform perfect reconstruction 
digital filter having a fewer number of coefficients 
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than said high pass non-boundary forward transform 
perfect reconstruction digital filter; 

converting said first sequence of transformed 
digital data values into said second sequence of 
5 transformed digital data values, said second sequence 

of transformed digital data values comprising a first 
subsequence of said second sequence of transformed 
digital data values and a second subsequence of said 
second sequence of transformed digital data values; 
10 running a number of said first subsequence of 

said second sequence of transformed digital data 
values through an interleaved boundary inverse 
transform perfect reconstruction digital filter to 
produce at least one output digital data value; 
15 running a number of said second subsequence of 

said second sequence of transformed digital data 
values through a first interleaved non-boundary 
inverse transform perfect reconstruction digital 
filter to produce output digital data values; and 
20 running a number of said second subsequence of 

transformed digital data values through a second 
interleaved non-boundary inverse transform perfect 
reconstruction digital filter to produce output 
digital data values, said output digital data values 
25 produced by said interleaved boundary inverse 

transform perfect reconstruction digital filter, said 
first interleaved non-boundary inverse transform 
perfect reconstruction digital filter, and said second 
interleaved non- boundary inverse transform perfect 
30 reconstruction digital filter comprising a subsequence 

of said output digital data values of said sequence of 
output digital data values* 

2. The method of Claim 1, wherein said low pass 
boundary forward transform perfect reconstruction digital 
35 filter has X coefficients and wherein said low pass non- 
boundary forward transform perfect reconstruction digital 
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filter has Y coefficients, Y being greater than X, said X 
coefficients of said low pass boundary forward transform 
perfect reconstruction digital filter being chosen so that 
said low pass boundary forward transform perfect 
5 reconstruction digital filter outputs a transformed digital 
data value H 0 when the low pass boundary forward perfect 
transform reconstruction digital filter operates on input 
digital data values IDo-ID^ adjacent said boundary, said 
transformed digital data value H 0 being substantially equal 

10 to what the output of the low pass non-boundary forward 
transform perfect reconstruction digital filter would be 
were the low pass non-boundary forward perfect 
reconstruction digital filter to operate on IDq-IDx^ as 
well as Y-X additional input digital data values outside 

15 said boundary, said additional input digital data values 
having preselected values. 

3. The method of Claim 2, wherein Y-X-l, wherein 
there is one additional input digital data value ID. 1# and 
wherein ID_i is preselected to be substantially equal to 

!0 ID 0 . 

4. The method of Claim 2, wherein Y-X=l, wherein 
there is one additional input digital data value ID. i# and 
wherein ID.j is preselected to be substantially equal to 
zero. 

5 5. The method of Claim 1, wherein said sequence of 

input digital data values is a sequence of digital data 
values associated with pixels of either a row or a column 
of a two dimensional image, said boundary of said sequence 
of input digital data values corresponding with either a 

0 start or an end of said row or said column. 

6. The method of Claim 1, wherein said sequence of 
input digital data values is a sequence of digital data 
values associated with an audio signal. 
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7. The method of Claim 1, wherein said low and high 
pass non-bcTDndary forward transform perfect reconstruction 
digital filters are forward transform quasi-perfect 
reconstruction filters which have coefficients which 

5 approximate the coefficients of true forward transform 
perfect reconstruction filters. 

8. The method of Claim 1, wherein said low and high 
pass non-boundary forward transform perfect reconstruction 
digital filters are both four coefficient quasi-Daubechies 

10 filters the coefficients of which approximate the 

coefficients of true four coefficient Daubechies filters. 

9. The method of Claim 8, wherein one of said four 
coefficient quasi-Daubechies filters has the coefficients 
11/32, 19/32, 5/32 and 3/32 independent of sign. 

15 10. The method of Claim 1, wherein said low pass non- 

boundary forward transform perfect reconstruction digital 
filter is a four coefficient guasi-Daubechies filter H of 
the form: 

H n = a * D 2n-l + bID 2n + cID 2n*l ~ dID 2n*2 

20 n being a positive integer, IDq-IDj,, being input digital data 
values, m being a positive integer, ID 0 being the first 
input digital data value in said sequence of input digital 
data values, and wherein said low pass boundary forward 
transform perfect reconstruction digital filter is a three 

25 coefficient digital filter of the form: 

H 0 « aID.2 + bID 0 + cID! - dID 2 

ID_ a being a predetermined input digital data value outside 
said boundary and having a preselected value. 

11. The method of Claim 10, wherein said high pass 
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non-boundary forward transform perfect reconstruction 
digital filter is a four coefficient quasi-Daubechies 
filter of the form: 

G n = «I>2n-i + cID 2n - MD 2n+l + aID 2n+2 

5 n being a positive integer, and wherein said high pass 
boundary forward transform perfect reconstruction digital 
filter is a three coefficient digital filter of the form: 



G 0 = dID.i + cID 0 - bID 2 + aID 2 
dID.i having a preselected value. 



10 12. The method of Claim 11, wherein: a+b+c-dis 

substantially equal to 1, wherein a - b + c + d is 
substantially equal to 0, and wherein ac - bd is 
substantially equal to zero. 

13. The method of Claim 12 , wherein: a=ll/32, 
15 b=19/32, c=5/32 and d=3/32. 

14. The method of Claim 11, wherein said interleaved 
boundary inverse transform perfect reconstruction digital 
filter is a two coefficient digital filter of the form: 



OD 0 = 4(b-a)H 0 + 4<c-d)G 0 

20 wherein OD 0 is an output digital data value of 

said sequence of output digital data values, wherein G 0 is 
the output of said high pass boundary forward transform 
perfect reconstruction digital filter when the high pass 
boundary forward transform perfect reconstruction digital 

25 filter operates on input digital data values ID 0 , ID 2 and 
ID 2 adjacent said boundary, and wherein H 0 is the output of 
said low pass boundary forward transform perfect 
reconstruction digital filter when the low pass boundary 
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forvard transform perfect reconstruction digital filter 
operates oft input digital data values ID 0 , ID X and ID 2 
adjacent said boundary. 

15. The method of Claim 14, wherein one of said first 
5 and second interleaved non-boundary inverse transform 
perfect reconstruction digital filters is of the form: 

D 2 n+I = 2(cH n - bG n + aH n+1 + dG n+1 ) 

n being a non-negative integer, and wherein the other of 
said first and second interleaved non-boundary inverse 
10 perfect reconstruction digital filters is of the form: 

D 2n+2 s 2 (- dH n + *G n + *>H n4l + cC W 

n being a non-negative integer, wherein H n , G n , H n+1 and G n+1 
comprise a subsequence of said second sequence of 
transformed digital data values. 

15 16. The method of Claim 1, wherein said low pass non- 

boundary forward transform perfect reconstruction digital 
filter is a four coefficient quasi-Daubechies filter having 
the coefficients: 11/32, 19/32, 5/32 and -3/32, and wherein 
said high pass non-boundary forward transform perfect 

20 reconstruction digital filter is a four coefficient quasi- 
Daubechies filter having the coefficients: 3/32, 5/32, - 
19/32 and 11/32. 

17. The method of Claim 1, wherein said low and high 
pass non-boundary forward transform perfect reconstruction 
25 digital filters are chosen from the group consisting of: 
true six coefficient Daubechies filters and quasi- 
Daubechies filters, the coefficients of the quasi- 
Daubechies filters approximating the coefficients of true 
six coefficient Daubechies filters. 
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18. The method of Claim l # further comprising the 
steps of: 

encoding said first sequence of transformed 
digital data values into an encoded sequence; and 
5 decoding said encoded sequence of digital data 

values into said second sequence of transformed 
digital data values and supplying said second sequence 
of transformed digital data values to said interleaved 
boundary inverse transform perfect reconstruction 
10 digital filter, said first interleaved non-boundary 

inverse transform perfect reconstruction digital 
filter, and said second interleaved non-boundary 
inverse transform perfect reconstruction digital 
filter. 

15 19. The method of Claim 18, further comprising the 

step of : 

quantizing each of said digital data values in 
said first sequence of transformed values before said 
encoding step. 

20 20. The method of Claim 1, wherein each of said input 

digital data values of said sequence of input digital data 
values is stored in a separate memory location, and wherein 
some of said memory locations are overwritten in a sequence 
with said sequence of transformed digital data values as 

25 said digital data input values are transformed into said 
transformed digital data values. 

21. A method of transforming a sequence of input 
digital data values into a sequence of transformed digital 
data values, said sequence of input digital data values 
3 0 comprising a boundary subsequence and a non-boundary 
subsequence, comprising the steps of: 

running a number of said input digital data 
values of said boundary subsequence through a low pass 
boundary forward transform perfect reconstruction 
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digital filter and through a high pass boundary 
forvafB transform perfect reconstruction digital 
filter to produce a first subsequence of said sequence 
of transformed digital data values, said first 
5 subsequence of said sequence of transformed digital 

data values comprising interleaved low and high 
frequency transformed digital data values; and 

running a number of said input digital data 
values of said non-boundary subsequence through a low 
10 pass non-boundary forward transform perfect 

reconstruction digital filter and also through a high 
pass non-boundary forward transform perfect 
reconstruction digital filter to produce a second 
subsequence of said sequence of transformed digital 
15 data values , said second subsequence of said sequence 

of transformed digital data values comprising 
interleaved low and high frequency transformed digital 
data values, said low pass boundary forward transform 
perfect reconstruction digital filter having a fewer 
20 number of coefficients than said low pass non-boundary 

forward transform perfect reconstruction digital 
filter, said high pass boundary forward transform 
perfect reconstruction digital filter having a fewer 
number of coefficients than said high pass non- 
25 boundary forward transform perfect reconstruction 
digital filter. 

22. A method, comprising the steps of: 

generating a sub-band decomposition having a 
plurality of octaves, a first of said plurality of 
octaves comprising at least one first digital data 
value, a second of said plurality of octaves 
comprising at least one second digital data value; 

calculating a sum of the absolute values of said 
at least one first digital data value; 

determining if said at least one first digital 
data value is interesting using a first threshold 
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limit; 

calculating a sum of the absolute values of said 
at least one second digital data value; and 

determining if said at least one second digital 
5 data value is interesting using a second threshold 

limit. 

23. A method of traversing a tree decomposition, said 
tree decomposition comprising a plurality of transformed 
data values, each of said plurality of transformed data 

10 values having a unique address identified by coordinates X 
and Y, comprising the step of: 

calculating at least four transformed data value 
addresses by incrementing a count, the count 
comprising one bit Cl x in the X coordinate and one bit 
15 Cl y in the Y coordinate, to generate said at least 

four transformed data value addresses. 

24. A method, comprising the step of: 
determining an address of a transformed data value in 

a tree decomposition by shifting a value a number of times, 
20 said tree decomposition having a number of octaves, said 
transformed data value being in one of said octaves, said 
number of times being at least dependent upon said one 
octave. 

25. A method, comprising the step of: 

25 determining an address of a transformed data value in 

a tree decomposition by multiplying a value by a factor, 
said tree decomposition having a number of octaves, said 
transformed data value being in one of said octaves, said 
factor being at least dependent upon said one octave. 

30 26. A method, comprising the step of: 

determining an address of a transformed data value in 
a tree decomposition by shifting a value a number of times, 
said tree decomposition having a number of frequency sub- 
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bands, said transformed data value being in one of said 
frequency sub-bands, said number of times being at least 
dependent upon said frequency sub-band. 

27. A method, comprising the step of: 

5 determining an address of a transformed data value in 

a tree decomposition by performing a logical operation upon 
a value, said tree decomposition having a number of 
frequency sub-bands, said transformed data value being in 
one of said frequency sub-bands, said logical operation 
10 performed being at least dependent upon said one frequency 
sub- band • 

28. The method of Claim 27, wherein said logical 
operation is a bit-wise logical AND operation. 

29. A method for determining a low pass quasi-perfect 
15 reconstruction filter and a high pass quasi-perfect 

reconstruction filter from a wavelet function, said low 
pass quasi-perfect reconstruction filter having a plurality 
of coefficients, said high pass quasi-perfect 
reconstruction filter having a plurality of coefficients, 

20 comprising the steps of: 

determining a low pass wavelet digital filter and a 
high pass wavelet digital filter from said wavelet 
function, said low pass wavelet digital filter having a 
plurality of coefficients, said high pass wavelet digital 

25 filter having a plurality of coefficients; 

choosing the coefficients of said low pass quasi- 
perfect reconstruction digital filter to be fractions such 
that when a sequence of data values having values of 1 is 
processed by said low pass quasi-perfect reconstruction 

30 digital filter the output of said low pass quasi-perfect 
reconstruction digital filter is exactly a power of 2; and 

choosing the coefficients of the high pass quasi- 
perfect reconstruction digital filter to be fractions such 
that when a sequence of data values having values of 1 is 
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processed by said high pass quasi-perfect reconstruction 
digital filter the output of said high pass quasi-perfect 
reconstruction digital filter is exactly 0, whereby each of 
the plurality of coefficients of said low pass quasi- 
5 perfect reconstruction digital filter is substantially 
identical to a corresponding one of said plurality of 
coefficients of said low pass wavelet digital filter, and 
whereby each of the plurality of coefficients of said high 
pass quasi-perfect reconstruction digital filter is 
10 substantially identical to a corresponding one of said 

plurality of coefficients of said high pass wavelet digital 
filter. 

30. A method of estimating a compression ratio of a 
number of original data values to a number of compressed 
15 data values at a value of a quality factor Q, comprising 
the steps of: 

examining a first block of transformed data values of 
a tree, said first block being one of a number of lowest 
frequency blocks of a high pass component sub-band , said 
20 tree being part of a sub-band decomposition; and 

determining a value of said quality factor Q at which 
said data values of said first block would be converted 
into compressed data values, and hot determining a value of 
said quality factor Q at which any other block of data 
25 values of said tree would be converted into a number of 
compressed data values. 

31. The method of Claim 30, wherein said number of 
original data values represents a frame of an image. 

32. The method of Claim 31, further comprising the 
30 step of: 

determining a number of lowest frequency blocks of 
said high pass component sub-band which would be converted 
into compressed data values given a value of said quality 
factor Q. 
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33. jT method of transforming a sequence of image data 
values, comprising the step of: 

filtering said sequence of image data values using a 
quasi-perfect reconstruction filter to generate a 
5 decomposition having a plurality of octaves, said quasi- 
perfect reconstruction filter having six coefficients. 

34. The method of Claim 33, wherein said six 
coefficients are selected from the group consisting of: 
30/128, 73/128, 41/128, 12/128, 7/128 and 3/128, 

10 irrespective of sign. 

35. A method of detecting motion in a tree 
decomposition, said tree decomposition comprising a 
plurality of octaves of blocks of data values, comprising 
the steps of: 

15 comparing data values of a first block in an octave 

with data values of a second block in said octave; and 

generating a token indicating motion based on said 
comparing. 

36. A method, comprising the steps of: 

20 generating a sub-band decomposition having a plurality 

of octaves, a first of said plurality of octaves comprising 
at least one first digital data value, a second of said 
plurality of octaves comprising at least one second digital 
data value; 

25 determining if said at least one first digital data 

value is interesting using a first threshold limit; and 

determining if said at least one second digital data 
value is interesting using a second threshold limit. 

37. A method, comprising the steps of: 

30 generating a sub-band decomposition of a first frame 

having a plurality of octaves, a first of said plurality of 
octaves comprising at least one first digital data value, a 
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second of said plurality of octaves comprising at least one 
second digital data value; 

generating a sub-band decomposition of a second frame 
having a plurality of octaves, a first of said plurality of 
5 octaves comprising at least one first digital data value, a 
second of said plurality of octaves comprising at least one 
second digital data value; 

comparing said first digital data value of said first 
frame with said first digital data value of said second 
10 frame using a first threshold compare; and 

comparing said second digital data value of said first 
frame vith said second digital data value of said second 
frame using a second threshold compare. 

38. A method , comprising the steps of: 

15 reading a sequence of data values from a plurality of 

memory locations, each of said data values being stored in 
a separate one of said plurality of memory locations; and 

overwriting some of said memory locations in a 
sequence as said data values are transformed into a 

2 0 sequence of transformed data values of a sub-band 
deconpos it ion . 

39. A method, comprising the steps of: 

performing a function on a plurality of data values of 
a new block to generate a first output value, said new 

25 block being a block of data values of a sub-band 
decomposition of a new frame; 

performing said function on a plurality of numbers to 
generate a second output value, each of said numbers 
substantially equalling a difference of a data value in 

30 said plurality of data values of said new block and a 
corresponding data value in a corresponding plurality of 
data values of an old block, said old block being a block 
of data values of a sub-band decomposition of an old frame; 
and 

35 generating a token if said first output value has a 
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predetermined relationship with respect to said second 
output valute. 

40. The method of Claim 3S, wherein said token is a 
SEND_STILL token. 

5 41. A method, comprising the steps of: 

performing a function on a plurality of data values of 

a new block to generate a corresponding plurality of output 

values, said new block being a block of data values of a 

sub-band decomposition; 
10 comparing each of said plurality of output values with 

a predetermined number; and 

generating a token if substantially all of said output 

values have a predetermined relationship with respect to 

said predetermined number. 

15 42. The methcd of Claim 41, wherein said token is a 

VOID token. 

43. A method, comprising the steps of: 

subtracting each one of a plurality of data values of 

a new block with a corresponding one of a plurality of data 
20 values of a old block to generate a corresponding plurality 

of output values, said new block being a block of data 

values of a sub-band decomposition of a new frame, said old 

block being a block of data values of a sub-band 

decomposition of a old frame; 
25 comparing each of said plurality of output values with 

a predetermined number; and 

generating a token if substantially all of said output 

values have a predetermined relationship with respect to 

said predetermined number. 

3 0 44. The method of Claim 43, wherein said token is a 

VOID token. 
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45. A method, comprising the steps of: 
determining an absolute value fcr each of a plurality 

of data values of a block of a sub-band decomposition; 
determining a sum of said absolute values; and 
5 generating a token based on a comparison of said sum 

with a predetermined number. 

46. The method of Claim 45, wherein said token is a 
VOID token. 

47. A method, comprising the steps of: 

10 processing a sequence of first image data values using 

a low pass forward transform perfect reconstruction digital 
filter and a high pass forward transform perfect 
reconstruction digital filter to create a first sequence of 
transformed data values, said low pass forward transform 

15 perfect reconstruction digital filter and said high pass 
forward transform perfect reconstruction digital filter 
each having coefficients chosen from a first group of 
coefficients independent of sign; 

converting said first sequence of transformed data 

20 values into a second sequence of transformed data values; 
and 

using digital circuitry to process said second 
sequence of transformed data values using a low pass 
inverse transform perfect reconstruction digital filter and 

25 a high pass inverse transform perfect reconstruction 

digital filter into a sequence of second image data values , 
said low pass inverse transform perfect reconstruction 
digital filter and said high pass inverse transform perfect 
reconstruction digital filter each having coefficients 

30 chosen from a second group of coefficients independent of 
sign. 

48. The method of claim 47, wherein said digital 
circuitry used to process said second sequence of 
transformed data values is a digital computer having a 
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microprocessor. 

49. The method of claim 47, wherein at least one of 
the coefficients in said first group of coefficients is not 
contained in said second group of coefficients. 

5 50. The method of claim 47, wherein said first group 

of coefficients has a different number of coefficients than 
said second group of coefficients. 

51. The method of claim 50, wherein said sequence of 
first image data values is a sequence of chrominance data 

10 values. 

52. The method of claim 50, wherein said low pass 
forward transform perfect reconstruction digital filter and 
said high pass forward transform perfect reconstruction 
digital filter each have four coefficients, and wherein 

15 said low pass inverse transform perfect reconstruction 

digital filter and said high pass inverse transform perfect 
reconstruction digital filter each have two coefficients. 

53. The method of claim 52, wherein said sequence of 
first image data values is a sequence of chrominance data 

2 0 values. 

54. The method of claim 47, wherein each of said 
coefficients of said low pass inverse transform perfect 
reconstruction digital filter and said high pass inverse 
transform perfect reconstruction digital filter is selected 

25 from the group consisting of: 5/8, 3/8 and 1/8, independent 
of sign. 

55. The method of claim 47, wherein said converting 
step comprises the steps of: 

encoding said first sequence of transformed data 
30 values into a compressed data stream; and 
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decoding said compressed data stream into said second 
sequence o^ transformed data values. 

56. A method comprising the step of using digital 
circuitry to process a sequence of image data values using 

5 a low pass forward transform perfect reconstruction digital 
filter and a high pass forward transform perfect 
reconstruction digital filter to generate a sub-band 
decomposition, said low pass forward transform perfect 
reconstruction digital filter and said high pass forward 
10 transform perfect reconstruction digital filter each having 
four coefficients, each of said four coefficients being 
selected from the group consisting of: 5/8, 3/8 and 1/8, 
independent of sign. 

57. The method of claim 56, wherein said digital 
15 circuitry comprises means for low pass forward transform 

perfect reconstruction digital filtering and for high pass 
forward transform perfect reconstruction digital filtering. 

58. A method comprising the step of using digital 
circuitry to process a sequence of transformed data values 

20 of a sub-band decomposition using an odd inverse transform 
perfect reconstruction digital filter and an even inverse 
transform perfect reconstruction digital filter, said odd 
inverse transform perfect reconstruction digital filter and 
said even inverse transform perfect reconstruction digital 

25 filter each having four coefficients, each of said four 
coefficients being selected from the group consisting of: 
5/8, 3/8 and 1/8 , independent of sign. 

59. The method of claim 58, wherein said digital 
circuitry is a digital computer having a microprocessor. 

30 60. A method comprising the step of generating a 

compressed data stream indicative of a video sequence from 
a sub-band decomposition, said compressed data stream 
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comprising a first data value, a first token, a second data 
value, and a second token, said first token being 
indicative of a first encoding method used to encode said 
first data value, said second token being indicative of a 
5 second encoding method used to encode said second data 
value, said first token consisting of a first number of 
bits and said second token consisting of a second number of 
bits . 

61. The method of claim 60, wherein said first 

10 encoding method is taken from the group consisting of: SEND 
mode, STILL_SEND mode, VOID mode, and STOP mode. 

62. The method of claim 60, wherein said first token 
is a single bit token. 

63. A method, comprising the steps of: 

15 forward transforming image data values to generate a 

first sequence of transformed data values of a first sub* 
band decomposition, said first sub-band decomposing having 
a first number of octaves; 

converting said first sequence of transformed data 

20 values into a second sequence of transformed data values; 

using digital circuitry to inverse transforming said 
second sequence of transformed data values into a third 
sequence of transformed data values, said third sequence of 
transformed data values comprising a second sub-band 

25 decomposition having a second number of octaves, said 
second number of octaves being smaller than said first 
number of octaves, said second sub-band decomposition 
having a low pass component, said low pass component of 
said second sub-band decomposition comprising data values 

3 0 indicative of rows of data values of an image, said rows of 
said image extending in a first dimension, said image also 
having columns of said data values extending in a second 
dimension; 

expanding said low' pass component in said first 
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dimension using interpolation to generate an interpolated 
low pass cCThponent; and 

expanding said interpolated low pass component in said 
second dimension by replicating rows of said data values of 
5 said interpolated low pass component. 

64. The method of claim 63, wherein said digital 
circuitry is a digital computer having a microprocessor . 

65. The method of claim 63, wherein said converting 
step comprises the steps of: 

10 encoding said first sequence of transformed data 

values into a compressed data stream comprising tokens and 
encoded data values; and 

decoding said compressed data stream into said second 
sequence of transformed data values. 
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